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SUMMARY 

This  report  describes  progress  on  the  analytical  portion  of 
project  number  DACA-T3-68-C-002  for  the  period  1  April  1969  to 
31  December  ,  1971. 

The  static  SLAM  finite  element  code  was  extended  to  include 
Jointed  systems  with  elastic-plastic  mechanical  characteristics 
satisfying  a  variety  of  possible  yield  criteria.  The  results  indicated 
that 

1.  The  two-dimensional  static  SLAM  code  for  plane  Jointed 
systems  could  predict  the  response  of  such  systems  to  imposed 
loadings  when  the  system  and  loadings  were  properly 
characterized. 

2.  Predictions  of  displacements  around  excavations  in 
natural  Jointed  rock  masses  deviated  from  measured  values. 
Reasons  for  this  included  both  difficulty  in  correctly 
determining  displacements  in  rock  masses  in  the  field 

as  well  as  discrepancies  between  the  simplified 
representation  of  natural  conditions  and  the  conditions 
themselves . 

3.  It  was  not  practicable  at  the  present  time  to  carry  out 
a  three-dimensional  finite  element  representation  of 
excavations  in  natural  Jointed  rock. 
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SECTION  1  -  INTRODUCTION 


1.1  -  Introduction 

This  report  describes  the  analytical  portion  of  project  no.  DACA-73- 
68-C-0002  for  the  period  1  April,  1969  to  31  December,  1971.  As  a  part  of 
the  total  effort  to  determine  if  the  element  method  analysis  will  permit 
i  sdiction  of  safe  spans  for  existing  and  proposed  underground  openings, 
it  was  the  objective  of  this  portion  of  the  project  to  extend  the  continuum 
model  for  underground  openings,  employing  the  finite  element  method  to 
consideration  of  the  rock  mass  as  a  two-dimensional  Jointed  medium,  in 
order  to  improve  prediction  of  stresses  around  and  displacement  within 
underground  openings.  Three-dimensional  effects  were  considered  also. 

1.2  -  Outline  of  Progress 

Accomplishment  of  this  objective  is  described  in  the  following  sections 
These  sections  consider  the  following  areas  of  progress: 

1.  Modification  of-  the  existing  continuum  static  SLAM  Finite 
Element  Code  to  incorporate  direct  consideration  of  Joints 
and  Joint  systems  normal  to  the  plane  problem. 

2.  Comparison  of  analysis  with  experiments  conducted  on  a  small 
scale  jointed  model  of  a  simulated  rock  system. 

3.  Results  of  analysis  of  an  underground  opening  considering  the 
influence  of  the  observed  joint  systems,  and  preliminary 
comparisons  with  measured  displacements. 

k.  Consideration  of  extension  to  three  dimensions. 
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SECTION  2  -  MODIFICATION  OF  STATIC  SLAM  CODE  TO  INCORPORATE  JOINTS 

2.1  -  Review  of  Static  SLAM  Code 

The  static  SLAM  (Stresses  Id  Layered  Arbitrary  Media)  Code  was 
developed  for  finite  element  analysis  of  large  systems  of  continuous  media. 
An  outgrowth  of  the  code  for  dynamic  problems  developed  at  IITRI  by 
Costantino  (1966,  1968)  and  Wachowski  and  Costantino  (1966),  its  saliant 
features  are  described  by  Perloff  (1969). 

The  Static  SLAM  Code  is  characterized  by  a  number  of  features  which 
distinguish  it  from  other  available  codes.  These  include: 

1.  The  code  contains  an  algorithm  for  renumbering  the  nodes  so  that 
the  minimum  band  width  of  non-zero  terms  within  the  stiffness 
matrix  results.  This  leads  to  an  efficient  operation,  especially 
for  large  problems.  Furthermore  the  user  is  able  to  number  node 
points  arbitrarily.  Details  are  discussed  by  Wachowski  and 
Costantino  (1966). 

2.  A  non-linear  displacement  field  is  assumed  for  rectangular 
elements,  so  that  where  rectangular  elements  can  be  incorporated 
in  the  geometry,  fewer  elements  are  required  to  represent  the 
problem  (Costantino,  1966). 

3.  The  constitutive  laws  used  in  the  code  are  contained  within  a 
material  "catalog”  and  new  constitutive  relations  can  be  added 
without  modifying  the  basic  code. 

Revised  solution  procedure 

Two  revisions  have  been  incorporated  in  the  solution  procedure 
for  the  code  to  reduce  computer  time: 


'‘W 
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1.  The  ini  tit- 1  elastic  solution  is  obtained  by  direct  eli;.  .nation 
of  the  node  point  equilibrium  equations,  rather  than  by  iteration 
as  in  the  earlier  version  of  the  code  (Perloff,  1969). 

2.  ;-n  over -relexetion  factor  is  incorporated  in  the  iterative 

>  cedvre  to..  -■>termining  the  .ode  point  displacements  when 
a  >r  i>  "t  t,  ontinuu;  is  behaving  in  a  non-linear  fashion. 
Whei  it  is  •  ■-  "kilned  that  the  yield  point  has  been  exceeded  in 
one  or  more  elements,  the  applied  t.undary  loadings  and  displace¬ 
ments  !  reduced  until  all  elements  art  acting  in  the  elastic 
range.  The  :  -.meining  nonlinear  part  of  the  solution  is  carried 
out  in  a  series  of  small  steps,  by  increasing  the  applied  loads 
or  displacements  in  increment  until  the  final  loading  condition 
is  reached.  At  each  increment  the  node  point  displacements  and 
load3  are  determined  and  added  to  those  from  the  previous 
Increment .  For  each  nonlinear  increment  the  initial  trial 
solution  for  the  iteration  is  the  displacement  field  obtained 
from  the  previous  increment.  For  the  first  nonlinear  increment, 
the  elastic  aolution  is  used  as  the  initial  trial  solution. 

The  system  equilibrium  equations  for  the  nonlinear  increment  at 
each  node  are: 

[K]{AU}  *  {AR}  +  (ARN)  (2*1) 

in  which  [K]  is  the  Btiffness  matrix  of  the  continuum  composed  of  the 

assembled  elements,  calculated  by  adding  the  stiffnesses  of  all  elements 

in  the  system,  {AU}  are  the  node  point  displacements,  {AR}  are  the 

N 

applied  node  point  loads  and  {AH  }  are  the  incremental  nonlinear 
correction  terms  in  the  >  •'plied  node  point  loads.  The  error  at  each 
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stage  of  the  iteration  process  is  then 

{A}*  *  [K^HAU}1  -  {AR}  -  {ARN}  (2.?.) 

,  1  i  * 

in  which  the  superscript  i  indicates  .the  itl1  iteration.  The  dis¬ 
placement  increment  for  the  (l+i)  increment  is  then 

'  (AU}i+1  «  {AU}1  -  (2.3) 

1  •  ■  jm 

where  K  is  the  main  diagonal  stiffness  at  node  ra,  and  a  is  the.  over- 
m  • 

relaxation  factor*  The  iteration  process  is  carried  out  until  the 

i 

l 

specified  allowable  error  is  reached  at  each  node. 

i 

2.2  -Behavior  of  Joints  ■ 

Most  natural  rock  contains  more  or  less  planar  surfaces  across  which 

t 

the  rock  has  separated  at  some  time  in  the  past.  Such  defects,  called 
Joints,  commonly  occur  as  approximately  parallel  multiple  surfaces  spaced 
. from  fractions  of  an  inch  to  many  feet  apart .  Systems  of  Joints  frequently 
intersect  so  that  a  large  rock  mass  may  contain  many  such  families  at 

various  spacings  and  orientations.  It  is  generally  recognized  that  the 

,  ! 

mechanical  behavior  of  masses  of  rock  is  influenced  strongly  by  the  presence 
of  such  Joint  systems,  along  with  other  geologic  defects;  and  this  has 
been  demonstrated  by  field  observations  and  laboratory  experiments  (Obert, 
1967;  Rosenblad,  1971). 

Joints  may  be  clean  surfaces  of  separation,  or  they  may  be  filled  with 

a  variety  of  materials.  Sometimes  Joints  contain  precipitates,  such  s,i 

ualcite  or  chlorite,  which  may  have  a  strength  approximately  the  same  as 

that  of  the  natural  rock  and  which  may-  serve  as  cementing  agents  to  impart 
>  ( 
tensile  resistance  hormal  to  the  Joint.  Other  filling  materials  such  as 

clays,  lead  to  Joints  which  are  much  weaker  than  the  intact  rock.  In  the 


jywpy*  ■  jcjoj  '■‘w 
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case  of  unfilled  joints,  the  rock  on  either  side  of  the  joint  is  frequently 
altered  to  a  weaker,  cr  less  stiff  form  by  chemical  and/or  mechanical  action. 

Natural  joint  surfaces  are  rarely  smooth.  Even  when  they  are  approxi¬ 
mately  planar,  they  contain  asperities  which  impart  roughness  to  the  Joint. 

The  role  of  these  asperities  in  the  shearing  resistance  along  Joints  is  a 
function  of  the  magnitude  of  the  pressure  normal  to  the  joints  (Patton,  1966). 

Because  of  the  approximately  planar  nature  of  most  Joint  systems  it  is 
useful  to  describe  the  mechanical  behavior  of  Joints  in  terms  of  stresses 
and  displacements  normal  to  and  parallel  to  the  Joint  surface. 

The  relationship  between  the  average  shear  stress  applied  to  a  Joint 
and  the  shear  displacement,  or  Btrain,  corresponding  to  a  given  normal 
pressure  can  be  idealized  as  shown  in  Figure  2.1.  That  is,  the  Joint 
deforms  in  a  more  or  less  linear  way  until  the  yield,  or  peak  strength  is 
reached.  Further  displacement  occurs  at  a  shear  stress  magnitude  equal  to 
that  of  the  residual  strength.  The  residual  strength  is  usually  equal  to 
or  less  than  the  peak  value. 

The  magnitude  of  the  peak  strength  has  been  commonly  described 
in  terms  of  the  normal  stress  on  the  joint  by  the  conventional  two-dimensional 
Mohr-Coulomb  criterion 

Tj.  *  c  +  cftan  4>  (2.1*) 

in  which  is  the  shear  stress  on  the  Joint  at  failure,  c  is  the  magnitude 
of  the  peak  stress  at  zero  normal  pressure  on  the  Joint,  is  the  normal 
pressure  acting  on  the  joint,  and  tan  <p  is  the  slope  of  the  shear  strength 
envelope  illustrated  in  Figure  2.2a.  Recent  evidence,  (Patton,  1966; 
Rosenblad,  1971)  suggests  that  a  bilinear  relation  for  the  peak  stress, 
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a) -Linear  Mohr- Coulomb  Criterion  for  Peak  Strength 


b)-  Bilinear  Mohr  -  Coulomb  Criterion  for  Peak  Strength 
with  Lower  Residual  Strength 


Figure  2.2-  Yield  Criteria  for  Joint  Elements 
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as  illustrated  in  Figure  2.2b  is  more  appropriate. 


T.  =  c  +  o„  tan  4>,  ,  O-  <  o  . 

f  f  Y1  ’  f  —  svch 


(2.5a) 


Tf  ■  c  *  tW“n  *1  +  (of-c,avch>t“I  *2  '  cf  ’  °awch 


(2,5b) 


in  which  a  .is  the  normal  stress  at  which  the  bilinear  failure  envelope 
swch 

changes  slope. 

The  residual  shear  strength  relation,  also  shown  in  Figure  2.2b  is 


T„  =  c  +  o„  tan  4> 
f  res  f  Yres 

res 


(2.6) 


in  which  the  subscript  (res)  denotes  the  residual  shear  strength  parameters. 

Wfci'a  Figure  2.1  and  Equations  2.5  and  2.6  constitute  a  somewhat 
idealised  depiction  of  the  observed  behavior  of  natural  and  artificially 
created  joints,  the  difficulty  of  testing  insitu  joint  behavior  and  the 
variability  of  results  (Goodman,  1969)  suggest  that  the  above  description 
is  sufficiently  detailed  at  the  present  time. 


2.3  -  Joint  Elements 

In  the  Static  SLAM  Code  Joints  ar.e  characterized  as  rectangular 
elements  of  zero  thickness.  This  is  illustrated  in  Figure  2.3  which  shows 
a  rectangular  element  of  length  a  and  width  b  in  the  plane  of  the  page. 

The  Joint  is  described  by  such  an  element  in  which  the  dimension  b  approaches 
zero  so  that  node  points  i  and  l  have  the  same  coordinates,  and  node  points 
j  and  k  have  the  same  coordinates.  An  elongate  Joint  is  then  made  up  of  a 
series  of  such  Joint  elements  to  which  suitable  elastic-plastic  properties 
have  been  assigned. 
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The  stiffness  matrix 'for  the  joint  elements  is  derived  by  determining 
the  stiffness  for  a  rectangular  Joint  in  terms  of  the  width  b  and  then 
.allowing  b  to  approach  zero  in  the  limit.  That  is,  an  equivalent  strain, 
{•£’}  is  defined  as 


{eO  =  b{e) 


(2.7) 


in  which  {e}  is  the  appropriate  strain  vector.  The  stresses,  {0}  are 

1  I  : 

,  {0}  »  [c]  (e *>  1  (2.8) 


where 


(C'l  »  ±  [C]  i 


and  [C]  is  the  matrix  of  elastic  constants. 


(2.9) 


Imposing  a  set  of  virtual  nodal  displacements  {<$u} ,  the  equivalent 
strain  is  relatedi  to  the  virtual  node  point  displacements  by 

{6e'}  *  b[A]  {6u}  *  [A'l  1  (2.10) 

i  1 

■ 

where  the  matrix  [A)  is  deteriiined  from  the  definition  of  the  strain  , 

,  l  ’ 

components  andithe  assumed  displacement  field  for  the  element.  The  internal 

»  * 

,  l 

strain  energy  developed  by .these  displacements  is  , 


6W,  x  r-  /  {<Sr.'}T{o>  dV  . 

i  b  i. 


(2.11) 


in  which  the  superscript  T  denotes  the  transpose  of  the  matrix  and  the 

*  '  t 

integration  is  taken  over  the  volume  V  of  the' element.  The  corresponding 
■  external  work  done  by  the  node  point  resisting  forces  during  the  virtual 


1  displacement  6w^  is 


SV  *  {SuKts} 

©  ■ 

in  which  {9}  is  the  vector  of  node  point,  forces  for  the  element. 


(2.12) 
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Invoking  the  principal  of  virtual  work,  expressions  2.11  and  2.12 
are  equated.  Substituting  Equation  2.10  into  the  result  yields 

{<Su}T{s}  *  -•  /  {6e'}T  o  dV 

b  V 

=  /  {6u}T[A']T  o  dV  (2.13) 

b  V 

Or,  solving  for  the  node  point  forces, 

{S}  «  i  /  [A’)T0  dV 
V 

-  r  /  [a* ]T[c» ] (a* ]  dV  {u}  (2.1M 

b  V 

This  can  be  written 

{S}  *  [k]  {u}  (2.15) 

in  which  the  stiffness  matrix  (kj  is 

[k]  «  /  £  (A’jT[c3  |  [A? j  uV  (2.16) 

V 

When  the  rectangular  element  is  a  Joint  element,  the  stiffness  is 

then 

[k],rt._+  *  lin  [k]  (2.17) 

J°int  b+0 

The  individual  terms  of  a  stiffness  matrix  which  are  preserved  are  deter¬ 
mined  by  substituting  the  appropriate  element  integrals  as  given  by 
Costantino  and  Wachowski  (1966). 

2.U  -  Constitutive  Lavs  for  Joint  Elements 

Three  constitutive  laws  are  provided  in  the  SLAM  Code  material  catalog 
for  the  description  of  the  mechanical  behavior  of  the  Joint  elements. 
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They  are: 

1.  An  elaatic-plastic  material  obeying  the  Von  Mises  yield  criterion 
and  the  Prandtl-Reuss  flow  equations.  This  model,  which  incorporates 
strain  hardening  effects,  is  described  in  detail  by  Perloff  (1969) 
and  Costantino  (1968).  The  constitutive  relation  can  be  employed 
for  regular  elements  as  well  as  Joint  elements. 

2.  An  elastic-plastic  material  obeying  the  Drucker  and  Prager  (1952) 
three-dimensional  extension  of  the  Mohr-Coulomb  criterion.  This 
relation  which  can  also  be  viewed  as  an  extended  Von  Mises  yield 
criterion  is  also  described  in  the  earlier  report  (Perloff,  1969) 
and  by  Costantino  (1968).  Although  usable  for  both  Joint  elements 
and  regular  elements,  this  constitutive  relation  is  probably 
applicable  to  Joints  only  when  they  are  filled. 

3.  An  elastic-plastic  material  which  obeys  a  two-dimensional  bilinear 
Mohr-Coulomb  yield  criterion  described  in  Equations  2.5,  and 
depicted  graphically  in  Figure  2.2b.  Post-yield  behavior  is 
governed  by  the  residual  strength  parameters  as  indicated  in 
Equation  2.6  and  Figure  2.2b.  An  option  is  also  provided  in  the 
SLAM  code  to  require  that  the  Joint  is  incapable  of  withstanding 
tension  normal  to  the  Joint  surface.  In  Figure  2.2b  this  would 
correspond  to  a  case  in  which  the  failure  envelopes  would  be 
vertical  along  the  T  axis.  Such  a  case  corresponds  to  a  clean 
unhealed  Joint. 

Plastic  strains,  for  the  post-yield  condition,  are  calculated 

as, 

{ep}  *  {eT}  -  (eE)  (2.18) 

T 

in  which  {e  }  arc  the  total  computed  strains  determined  from  the 
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E 

node  point  displacements,  and  {e  }  are  the  elastic  strains 
determined  from 

{eE}  *  [C]"1  {0}  (2.19) 

This  constitutive  relation  is  applicable  to  Joint  elements  only. 

These  constitutive  lavs  permit  consideration  of  a  vide  range  of 
types  of  Joint  behavior.  The  nature  of  the  material  catalog  in  the  SLAM 
code  also  allovs  for  relatively  straightforvard  incorporation  of  additional 
constitutive  relations,  such  as  those  involving  time-dependent  behavior. 

2.5  -  Revised  SLAM  Code 

The  current  version  of  the  Static  SLAM  Code,  containing  the  revisions 
described  above  and  incorporating  consideration  of  Joint  elements  is  listed 
in  Appendix  A.  The  form  of  the  data  input  required  is  given  at  the 
beginning  of  Appendix  A  and  is  indicated  by  comment  cards  vithin  the  code 
itself, 

2.6  -  Interpolation  Code  for  MPBX  Displacements 

To  assist  in  comparing  the  results  of  the  analysis  vith  displacement 
measurements  along  MPBX  lines,  an  auxiliary  code  has  been  developed  to 
compute  displacements  along  these  lines.  The  node  point  displacements 
determined  by  the  SLAM  code  are  used  as  input  to  the  interpolation  code 
for  MPBX  displacements.  The  input  node  point  coordinates  and  displacements 
may  be  in  either  magnetic  tape  or  punched  card  form. 

Details  of  data  input  and  a  listing  of  the  code  are  given  in 
Appendix  B. 
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SECTION  3.  RESULTS  OF  ANALYSES  OF  JOINTED  SYSTEMS 

3.1  -  Introduction 

Two  types  of  jointed  systems  were  selected  for  comparative  analyses 
to  indicate  the  degree  to  which  the  behavior  of  the  system  could  be  pre¬ 
dicted  by  the  static  SLAM  code  incorporating  Joint  elements.  The  first  of 
these  was  a  series  of  model  tests  conducted  on  a  mass  of  simulated  rock 
blocks  arranged  to  provide  two  families  of  intersecting  Joints.  This  model 
was  developed  at  the  Missouri  River  Division  Laboratory  (MRDL)  of  the 
U.  S.  Army  Corps  of  Engineers  (Rosenblad,  1971). 

The  second  case  considered  is  a  typical  section  at  the  Straight  Creek 
Pilot  bore  in  which  at  least  two  families  of  intersecting  Joints  were  found 
intersecting  the  tunnel.  These  cases  are  discussed  individually  below. 

3.2  -  MRDL  Jointed  Model  Tests 

The  MRDL  Jointed  Block  model  is  illustrated  schematically  in  Figure  3.1. 
It  consists  of  a  series  cf  blocks,  square  or  rectangular  in  cross-section 
grouped  together  to  form  a  body  intersected  by  sets  of  parallel  Joints 
normal  to  one  plane.  In  Figure  3.1a  a  typical  square  section  block  is 
illustrated.  The  square  blocks  axe  grouped  as  shown  in  Figure  3.1b  with 
triangular  blocks  where  required  in  order  to  form  a  larger  mass  which  is 
square  in  cOoss-section.  The  model  is  loaded  in  the  horizontal  plane  as 
indicated  schematically  in  Figure  3.1c.  Details  of  the  apparatus  construc¬ 
tion,  development  and  operation  are  given  by  Rosenblad  (1971).  The  individual 
blocks  are  fabricated  by  molding  using  a  model  material  consisting  of  sand, 
gypsum  cement  and  water  vibrated  in  a  mold.  The  development  of  the  model 
material  resulted  from  an  extensive  experimentation  program  conducted  by 
Rosenblad  (1971)  for  this  purpose. 


a) -Typical  Block  b)- Blocks  Combined  to  Form  Model 


MHN 


C)-  Schematic  Diagram  of  Applied  Stresses  Shown 
In  Plan  View 


Figure  3.!  -  Schematic  View  of  AIRDL  Jointed 
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A  typical  uniaxial  stress-strain  curve  for  an  intact  cylindrical 
specimen  of  the  vibrated  model  material  is  shown  in  Figure  3.2.  The  axial 
strain  data  were  obtained  from  strain  gages  mounted  in  the  central  portion 
of  the  test  sections.  Rosenblad  reports  significant  differences  between 
the  relation  obtained  from  such  strain  gage  measurements  and  those  from 
gross  measurements  from  the  specimen.  He  attributes  this  discrepancy  to  end 
restraint  effects.  The  importance  of  such  effects  in  interpreting  test 
results  has  been  investigated  in  an  earlier  report  (Perloff,  1969)»  and  by 
Perloff  and  Pombo  (1 969).  The  Mohr  envelopes  for  peak  points  on  the  stress- 
strain  curves  for  the  intact  model  material,  obtained  from  both  direct  shear 
and  triaxial  compression  tests,  are  shown  in  Figure  3.3. 

The  effect  of  a  joint  oriented  at  ^5°  to  the  axis  of  a  triaxial 
compression  specimen  on  the  stress-deformation  behavior  of  the  model  material 
is  shown  in  Figure  3.2.  This  curve  i«*  for  a  triaxial  compression  test  in 
which  the  confining  pressure  was  500  psi.  However,  the  equivalent  Young's 
modulus  at  50  percent  peak  strength  was  of  similar  magnitude  for  lower 
confining  pressures.  Analysis  of  a  single-jointed  specimen  indicated  that 
the  results  in  Figure  3.2  corresponded  to  a  Joint  modulus  of  1.8  x  10^  psi. 

Mohr  envelopes  for  the  Joints  between  the  blocks  as  obtained  from 
triaxial  compression  and  direct  shear  tests  are  shown  in  Figure  3.^.  As 
might  be  expected,  the  Joints  exhibit  no  cohesive  components  of  shearing 
resistance,  and  have  a  bilinear  failure  envelope. 

Analysis  performed 

The  analysis  was  carried  out  for  a  two-dimensional  Jointed  model  in 
which  the  blocks  were  assume ^qupre.  The  finite  element  mesh  used  is 
shown  in  Figure  3.5.  The  mesh  corresponds  to  one-quarter  of  the  model  and 

16 


Figure  3<3-  Mohr  Envelopes  for  Ulfimofe  Failure  of  intact  Vibrated 

Model  Material  Specimens  from  Trlaxial  and  Oirect  Shear  Tests 

(from  Rownblad,  197!) 


igure  3.4-  Mohr  Envelope  for  Initial  Slip  along  Joints  from  Triaxial  and  Direct 
Shear  Tests 

( from  Rosenblad  ,  1971 ) 


■  " -••'.■-SJ'm-.,'*. nmiTT’  - 1  «'«-siww).!gKw»v  B”  ,‘|w«w<..wpu^v^^www|^>-.pt»ny<w>B»rj>^'JK- 


-13- 

consists  of  180  nodes  and  156  elements.  Each  of  the  heavy  lines  indicates  a 
joint  element  between  intact  blocks.  The  light  lines  are  boundaries  of 
elements  forming  the  intact  blocks .  The  material  parameters  used  in  the 
analysis  were  obtained  from  the  test  data  presented  by  Rosenblad  (1971) 
and  shown  in  Figures  3C2-3.1*: 

Intact  Blocks  -  Elastic-plastic  material  obeying  the  three- 
dimensional  generalized  Mohr-Coulomb  yield  criterion: 

E  =  1.5  x  106  psi 

V  =  0.230 

c  =  100  psi 

0  =  U9.5  psi  (of  <  230  psi) 

Joints  -  Elastic-plastic  "material"  obeying  the  two-dimensional  bilinear 
Mohr-Coulomb  yield  criterion.  Post-yield  behavior  is  governed  by 
residual  strength  parameters  which  are  the  same  a3  those  producing 
initial  yield: 

E  =  1.8  x  105  psi 

V  =  0.230 

c  =  0 

01  *  33°  (of  <  175  psi) 

02  =  27°  (of  >  175  psi) 

The  imposed  loading  used  in  the  analysis  was  a  -  c*0  *  25  psi, 

y  d 

a  =  a.  increasing  to  a  maximum  of  275  psi . 

Z  Jl 

Results 

Results  of  an  analysis  of  the  Jointed  rock  model  are  shown  as  the  dashed 
line  in  Figure  3.6.  The  line  shows  the  relative  displacement  on  either  side 
of  a  Joint,  parallel  to  the  Joint,  as  a  function  of  the  major  principal 
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stress.  The  curve  shown  corresponds  to  any  Joint:  because  of  the  : 
symmetry  of  the  test. 

Measured' results  for  four  presumably  equivalent  joints  are  also  shown 

‘  .  i 

in  Figure  3.6.  The  scatter  in  the  experimental  results  probably  arises 
from  rotation  of  individual  blocks,  and  consequent  nonUnifprm  distribution 
of  frictional  forces  between  the  blocks,  due  to  minor  eccentricity  in  the 
jack  loading  system.  Nonetheless,  the  ability  of  4he  analysis  to  predict 
the  observed  displacements  is  evident. 

On  the  basis  of  these  results  it  was  concluded  that’ the  SLAM  code  was 
capable  of  describing  the  behavior  of  Jointed  systems  which  satisfied  the 

'  i  ' 

following  criteria: 

i  , 

>  i 

1.  The  geometric  arrangement  of  Joints  and  intact  elements  can  be 

I 

completely  described  in  terms  of  a  two-dimensional  system. : 

2.  The  mechanical  behavior  of, the  intact  materials  and  individual 
Joints  can  be  characterized  by  one  of  the  constitutive  relations 

i 

incorporated  in  the  material  catalogue  of  the  code.  1 

3.  The  imposed  loads  and  displacements  are  known. 

1 

3.3  -  Analysis  of  Straight  Creek  Pilot  Bore 

i  , 

Description  of  the  tunnel 

) 

The  Straight  Creek  Pilot  Bore  is  located  about  55  miles  west  qt  Denver 

on  the  proposed  highway  1-70.  About  75  percent  of  the  rock  in  the  pilot  bore 

! 

i3  fine  to  medium  grained  granite  (Brown,  1970).  The  remainder  of  thb  rock 
consists  of  metasediments  that  include  a  variety  of  materials.  The  tunnel  is 
transected  by  the  loveland  pass  fault  zone,  which  contains  numerous  shear 
zones  of  diverse  orientations.  The  rock  is  jointed,  and  Joint , surfaces  are 
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comonly  coaled  with  chlorite  and/or  calcite.  .• 

The  section  chosen  for  analysis,  Sta.  llU+53,  was  composed  of  predominantly 

I;  1  I  , 

granitic  rock  with  two  major  joint  systems  oriented  approximately  38  and  52 

.  i  t  l 

degrees  from  the  horizontal  on  a  olane  normal  to  tne  tunnel  axis.  The 

i 

joint  spacing  observed  at  the  tunnel  wall  averaged  one  to:  three  feet , 

but  was  quite  variable.  At  this  location  the  tunnel  is  250  feet  below  the 

.  i 

ground  surface ^ 

Mechanical  characteristics  of  the  rock  were  determined  by  Robinson  and 
,  i 

Lee  (1965)*  Their  test1  results,  illustrated  by  the  Mohr  circles  and  solid 
!  ' 
failure  envelope  in  Figure  3.7,  indicate  that  the  intact  rock  obeys  a  Mohr- 

Coulomb  failure  criterion.  Tests  on  samples  with  chlorite  and  calcite 

1 

filled  Joints,  in  which  the  failure  occurred  along  the  Joints,  indicate  peak 

I  . 

strength  behavior  of  the  Joints  shown  as  tne  dashed  line  in  Figure  3.7.  Onct 
the  initial  failure  takes  place  however,  it  seemB  reasonable  that  the  cohesive 

!  I 

resistance  diminishes  to  zero. 

Analysis  performed 

The  two-dimensional  Jointed  finite  element  mesh  used  to  represent  the 
prdblem  is  shown  in  Figure  3.8.  The  heavy  lines  are  joint  elements,  light 

1 

lines,  indieatp  boundaries  of  intact  elements.  In  the  vicinity  of  the  tunnel, 
joint,  spacing  was  three  feet.  The  spacing  was  increased  at  increasing 

j  '  I 

distance  fVom  the  tunnel,  Figure  3.8,  so  that  there  were  less  than  1600  modes. 
As  ir.  the  case  of  the  continuum  analysis  (Ferloff,  1969) »  the  problem  Is 

,  1 

i 

solved  in  two  stages.  The  displacements  resulting  from  the  tunnel  construction 
were  determined  as  the  difference  between  the  displacements  of  the  mass 
without  the  tunnel,  and  those  with  the  tunnel  (shaded  in  Figures  3.8) 
removed.:  The  mesh  without  the  tunnel  consisted  of  1507  nodes  and  1385 
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(Data  from  Robinson  and  Lee,  1965) 
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Figure  3.8  -  Finite  Element  Mesh  for  Straight  Creek  Pilot  Bore 
With  Two  Joint  Systems 
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elements;  that  with  the  tunnel  contained  lklU  nodes  and  1300  elements. 
Hie  material  parameters  used  in  the  analysis  were: 

Intact  rock  -  Elastic-plastic  material  obeying  the  three- 
dimensional  generalized  Mohr-Coulomb  yield  criterion: 

E  *  8.98  x  106  psi 
v  «  0.243 
c  *  1*500  psi 
0  -  52° 

Joints  -  Elastic-plastic  material  obeying  the  two-dimensional 
Mohr-Coulomb  yield  criterion.  Post-yield  behavior  is 
cohesionless  in  nature  as  discussed  above: 

E  =  8.98  x  105  psi 


«  *  0.21*3 
c  *  2500  psi 
0,  02  =  52° 


c  =0 
res 


Imposed  loads  were  due  solely  to  gravity.  Hi  at  is,  the  material 
weight  acted  on  all  elements  shewn.  In  addition,  a  uniform  vertical 
loading  of  208  psi  was  applied  to  the  upper  boundary  of  the  mesh  to 
account  for  the  overburden  above  the  mesh. 


Results 


Results  of  the  analysis  and  their  relation  to  field  measurements 


are  shown  graphically  in  Figure  3.9*  This  figure  indicates  the  cross- 
section  of  the  tunnel  and  the  three  MPBX's  located  at  Sta.  Ill:  +  53. 
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Figure  3.9  -  Comparison  Between  Measured  and  Predicted  Displacement  at  Sta  114  ♦  53 
at  Straight  Creek  Pilot  Bore. 
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Superimposed  on  the  diagrams  of  the  MPBX's  are  the  measured  displacements 
along  the  MPBX  axis,  values  calculated  by  the  analysis  for  jointed 
systems  given  herein  and,  for  comparison,  the  results  from  the  continuum 
elastic  analysis  (Perloff,  1969).  The  analtyical  results  for  the  jointed 
model  are  closer  to  the  measured  values  at  MPBX's  2001  and  2002  than 
those  for  the  continuum  model.  The  calculations  predict  a  movement  in  MPBX 
2003  which  opposite  in  direction  to  that  measured.  Furthermore  the 
irregular  movements  recorded  for  MPBX  2002  near  the  tunnel  face  are  not 
predicted  by  the  analysis.  Several  possible  reasons  for  these  discrepancies 
can  be  ’d'-.itified.  Among  these  are: 

1.  Incorrect  measurement  of  rock  movement  based  on  MPBX  data. 

This  could  arise  from  at  least  two  sources: 

a.  Displacements  are  likely  to  occur  immediately 
upon  excavation.  Became  the  MPBX  is  installed 
only  after  excavation,  important  components  of 
displacement,  not  necessarily  in  the  same  direction 
as  subsequently  measured  values  may  be  lost. 

b.  Anchor  slip  may  occur  leading  to  spurious  relative 
displacement  values  between  individual  anchors.  If 
the  anchor  most  remote  from  the  tunnel  slips, 

the  whole  displacement  axis  is  translated. 

2.  The  specific  orientation  and  spacing  of  the  joints  in  the 
vicinity  of  the  MPBX's  is  not  known  but  only  estimated 
for  simplified  representation.  This  can  affect  predicted 
displacements  markedly  in  the  region  near  the  tunnel  where 
stress  relief  is  the  greatest. 
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3.  The  mechanical  characteristics  of  the  joints  may  be  incorrectly 
described  for  at  least  two  reasons: 

a.  The  elastic  parameters  for  the  joint  materials 

were  estimated  on  the  basis  of  the  measured  relative 
moduli  in  the  MRDL  tests.  Actual  data  on  this 
point  were  not  available. 

b.  The  joints  were  assumed  to  be  unfailed,  i.  e.,  peak 
strength  parameters  were  initially  applicable.  If  the 
excavation  process  produces  temporary  Joint  separation, 
for  example  during  blasting,  then  residual  strength 
parameters  may  be  more  applicable. 

U.  Initial  stress  conditions  are  important  both  to  the  magnitude 
of  elastic  deformations  aa  well  as  to  the  onset  of  yielding 
as  the  tunnel  material  i3  removed.  This  important  point  was 
discussed  in  an  earlier  report  (Perloff,  19^9)  in  more 
detail.  Unfortunately,  no  proven  means  for  reliably  measuring 
the  initial  stress  state  (prior  to  excavation)  is  available 
at  the  present  time. 

5.  The  three-dimensional  vature  of  the  problem,  especially 
the  Jointing  and  faulting  undoubtedly  has  some  influence. 

This  point  is  discussed  further  below. 

On  the  basis  of  these  observations  it  was  concluded  that  a  more 
accurate  prediction  of  tunnel  behavior  based  on  presently  available 
input  information  would  be  fortuitous. 
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SECTION  1*  -  CONSIDERATION  OF  THREE-DIMENSIONAL  EFFECTS 

Three-dimensional  effects  are  undoubtedly  important  in  the 
response  of  a  rock  mass  to  the  opening  of  an  excavation  within  the 
mass.  These  effects  arise  from  at  least  three  sources: 

1.  The  three-dimensional  nature  of  the  tunnel  geometry 
produces  a  corresponding  set  of  stresses  and  deformations 
in  the  rock  medium.  Even  in  the  case  of  a  long  tunnel, 
the  geometry  is  decidedly  three-dimensional  at  the  end 
of  the  tunnel  where  construction  is  occurring,  as  well  as 

*  in  the  vicinity  of  the  portals. 

2.  The  preexisting  stratigraphic  features,  especially 

Joints  and  faults,  are  likely  to  interact  vith  the  1 

tunnel  in  a  fashion  which  requires  r  three-dimensional 
framework  for  a  realistic  representation. 

3.  The  failure  criterion  appropriate  to  the  materials 
involved  most  probably  involves  the  complete  stress 
(or  strain)  field  at  a  point.  Therefore  the  response 
characteristics  of  the  materials  themselves  are 
three-dimensional  in  nature. 

In  spite  of  these  features,  however,  it  was  found  to  be  impractical 
to  incorporate  three-dimensional  effects  into  the  Jointed  system  analysis 
at  the  present  time.  Reasons  for  this  included: 

1.  Although  three-dimensioned  effects  are  likely  to  be 
significant,  there  are  many  situations  (including, 
probably,  the  Straight  Creek  Pilot  Bore)  where  the 
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other  discrepancies  between  the  real  conditions  and  those 
identified  are  much  more  important.  It  is  likely  that  the 
most  important  of  these  are  the  joint  spacing  and  mechanical 
characteristics.  Thus,  only  a  marginal  gain  in  accuracy 
1  seemed  likely  sis  the  result  of  incorporating  these  effects 

i 

at  this  time. 

2.  Sven  a  simplified' representation  of  the  major  joint 

systems  in  a  twd-dimensional  framework  required  approximately 

J 

1500  nodes  and  1^00  elements.  The  SLAM  code  capable  of  managing 

I 

i  this  size  problem  uses  approximately  53, G00  words  of  central 
i  memory , storage  and  approximately  15  minutes  of  computation 

time  on  the  CDC  6500  computer.  'Expanding  the  program  to  three- 
dimensions  without  imposing  some  symmetry  requirements  would 
lead  to  an  inordinately  large  problem  (see  for  example.  Corum 
and  Krishnamurthy,  1969)* 

Consequently  it  was  concluded  that  three-dimensional  considerations 
could  not  be  profitably  incorporated  into  the  analysis  at  the 
preser'  time. 

i  ’  i 
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SECTION  5  -  CONCLUSIONS 

Based  on  the  results  described  in  this  report  for  analyses  of 
Jointed  systems  and  measurement  of  performance  of  those  systems,  the 
following  conclusions  have  been  drawn: 

1.  The  static  SLAK  ode  for  plane  Jointed  systems  described 
herein  can  predict  the  response  of  such  systems  to  imposed 
loadings  when  the  following  conditions  are  satisfied: 

a.  The  geometric  arrangement  of  Joints  and  intact 
elements  can  be  completely  described  in  terms  of  a 
two  dimensional  system. 

b.  The  mechanical  behavior  of  the  intact  materials  and 
individual  Joints  can  be  characterized  by  one  of 

the  constitutive  relations  incorporated  in  the  material 
catalogue  of  the  code. 

c.  The  imposed  loads  and  displacements  are  known. 

2.  Predictions  of  displacements  of  excavations  in  a  natural 
Jointed  rock  mass  are  likely  to  differ  from  measured 
values.  The  discrepancy  may  arise  from  numerous  sources 
including: 

a.  Errors  inherent  in  the  measurements  themselves. 

b.  Insufficient  knowledge  of  the  spacing  and  orientation 
of  the  Joints  and  faults  in  the  zone  of  interest. 

c.  Incorrect  assessment  of  the  mechanical  characteristics 
of  the  Joints  or  Joint-filling  materials. 
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d.  Inadequate  knowledge  of  insitu  stress  conditions 
prior  to  excavation. 

e.  Three  dimensional  effects  which  cannot  be  incorporated 
in  a  plane  analysis.  This  effect  is  likely  to  be 
less  important  than  others  mentioned  above. 

3.  Incorporation  of  a  three-dimensional  finite-element 
representation  of  jointed  systems  into  the  analysis  is 
not  practicable  at  this  time  due  both  to  the  consequent 
requirement  for  computer  storage  and  time,  and  to  the 
limited  benefit  likely  to  be  gained  from  such  an 
undertaking. 
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APPENDIX  A  -  STATIC  SLAM  CODE  FOR  JOINTED  SYSTEMS 

A.l  -  Code  Description 

The  Static  SLAM  Code  is  written  entirely  in  FORTRAN  IV  and  makes 
use  of  the  overlay  features  of  FORTRAN  IV  to  optimize  usage  of  the  high 
speed  core.  The  code  consists  of  a  main  program,  twelve  overlays  and 
2?  separate  subroutines.  The  overlay  structure  and  subroutines  are 
shown  schematically  in  Figure  A.l. 

The  code  uses  11  tape  drives  for  immediate  storage  of  data  and 
output.  The  logical  numbers  for  these  tapes  are  1,  2,  3,  *»,  8,  9,  10, 
11,  12,  14,  15.  In  addition,  I/O  is  handled  by  tape  5  for  input  and 
6  output.  The  solution  is  stored  on  tapes  3  or  12,  and  J5»  The  code 
is  presently  operational  on  the  CDC  6500,  using  the  Purdue  MACE 
operating  system. 

A. 2  -  Data  Deck  Setup 

The  following  description  of  the  data  deck  setup  assumes  that,  in 
general,  all  numbers  are  right-oriented  in  their  fields.  Inclusion  of 
the  decimal  point  in  floating  point  (real)  numbers  overrides  the  right- 
orientation  requirement.  Generally  all  integer  data  are  entered  in 
5-column  fields  while  all  floating  point  data  are  entered  in  10-column 
fields. 

Data  entered  in  card  groups  1.1  to  6.2  sire  read  in  overlay  LNK1A. 
Data  entered  in  group  7.1  to  9-3  are  read  in  overlay  LNK1G.  The  remain¬ 
ing  data  are  read  in  overlay  LNK2. 
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CARD 

VARIABLE 

FORMAT 

1.1 

aName 

! 

(18AM 

i 

'  '  1  j 

ANAME  *  Problem  Descriptor  to  be  printed  as  output, 
up  to  72  characters 

2.1 

NUMNP,  NUMEL,  ISTRES,  IMPBX,  IPRINT  , 

(515) 

i  NUMNP  *  Number  of  node  points  (<  1600) 

'  r  1 

» 

NUMEL  «  Number  of  elements 
1  ISTRES  *  Counter  to  describe'  stress  condition, 

.  i  .  •  ’  ’ 

3  0,  axisymmetric  problem, 

i  1  i 

=  1,  plane  strain  problems 
=  2,  plane  stress  problem. 

1MFBX  =  Counter  for  storage  on  magnetic  tape  (logical  number  15)  i 
for  use  in : interpolation  code  (Appendix  B)  for  determining 
>  displacement  along  MPBX  lines, 

,  'll),  1 

i  =0,  data  are  not  stored  on  tape  15 

=1,  data  are  stored  on  tape  15  for  subsequent  use. 

1  ‘  I 

IPRINT  =  Counter  for  intermediate  printout, 

*  0,  no  intermediate  printout  other  than  input  data, 

1  • 

,  ! 

=  1,  print  adjacency  table  and  input  data, 

,  *  2,  print  stiffness  table  and  input  data, 

i 

*  3, 'print  stress  table  and  input  data, 

=  U,  print  mass  vector  and  input  data, 

=  5»  print  load  tables  and  input  data, 

■  .  i 

=  6,  print  results  of  elimination! solution  and 
input  data,  ’  i 

=7,  print  stresses  in  plastic  elements  and  input  data, 

*99,  print  all  above  tables. 

A-2 
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CARD  VARIABLE 


FORMAT 


3.1  N,  R,  Z,  ITYPE,  THETA  (I5,2E10.4,  I10,E10.4) 

N  *  Node  point  number , 

R  »  Radial  (horizontal)  coordinate  (ft),  increasing  to  the  right, 

Z  ■  Vertical  coordinate  (ft),  increasing  down, 

ITYPE  «  Counter  for  support  conditions, 

«  0,  free  node, 

*  1,  fixed  in  one  direction, 

«  2,  fixed  in  both  directions 

THETA  *  Angle  (in  degrees)  of  roller  support  measured  positive 
clockwise  from  the  horizontal,  for  ITYPE  *  1  only. 

Note:  Card  3.1  repeated  NUMNP  times. 

NZONES  (15) 

NZONES  «  Humber  of  different  materials  (  <_  20) 

IZ,  ANAME  (I5,I8A4) 

IZ  b  Material  or  zone  number 

ANAME  »  Material  or  zone  descriptor  to  be  printed  as  output, 
up  to  72  characters. 

IELAST,  IPLAST,  WGT,  El,  E2,  E3,  E4,  E5  (2I5,E10.0,5E10.0) 

IELAST  *  Type  of  linear  material  behavior, 

>1,  isotropic  elastic  material, 

*  2,  transversely  anisotropic  elastic  material, 

*  3»  linear  compressible  fluid. 

IPLAST  *  Counter  to  describe  nonlinear  behavior, 

*  0,  elastic  or  linear  material, 

«  1,  Mises  (Prandtl-Eeuss)  elastic-plastic  material, 

»  2,  Elastic-Plastic  material  with  generalized  three- 
dimensional  Mohr-Coulomb  yield  criterion. 
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4.1 

4.2 

4.3 


A-3 


‘WjqfcT 


CARD  VARIABLE 


FORMAT 


*  3,  Elastic-Plastic  material  with  tvo-dimenaional 
Mohr- Coulomb  yield  criterion.  Applicable  for 
joint  elements  only. 

Note:  if  IPIAST  ■  1,  2  or  3,  IELAST  must  equal  1 
(isotropic  elasticity) 

WGT  ■  Unit  weight  of  material  (pcf) 

El  to  E5  *  Elastic  Property  data. 

If  IELAST  -  1, 

El  *  Young's  Modulus  (psi), 

E2  *  Poisson's  Ratio 
E3  to  E5  are  neglected. 

If  IELAST  *  2, 

El  *  Er  (psi), 

E2  -  Ez  (psi), 

E3  *  Erz  (psi), 

E4  *  G  (psi), 

E5  *  ErQ  (psi). 

If  IELAST  *  3, 

El  *  bulk  modulus,  and 
E2  to  E5  are  neglected. 


4.4  NOYILD 

NQYILD  *  Number  of  nonlinear  segments  of  effective 
stress-strain  curve  of  elastic-Mises 
plastic  material  (  10) 

4.5  (SSTAR(I),  1*1,  NOYILD) 

SSTAR  *  Stress  (psi)  at  beginning  of  non-linear 

segment,  up  to  7  per  card. 

4.6  (HSTAR(I),  1*1,  NOYIELD) 

HSTAR  *  Slope  (pBi)  of  nonlinear  segment,  up  to 
7  per  card. 

Note:  Cards  4.4,  4.5,  and  4.6  omitted  if  IPLAST  #  1. 

A- 4 


(15) 


(7E10.4) 


(7E10.4) 


40 


CARD  VARIABLE 


FORMAT 


4.7  COHESN,  FRCTAN 

COHESN  *  Value  of  cohesion  (psi)  for  generalized  three- 

dimensional  Mohr-Coulomb  material,  as  determined 
from  standard  triaxial  compression  test. 

FRCTAN  *  Corresponding  friction  angle  (in  degrees) 

Note;  Card  4.7  omitted  if  IPLAST  not  equal  to  2, 

4.8  COHESN,  FRCTN1,  FRCTN2,  SNSWCH 

COHESN  =  Value  of  peak  cohesion  (psi)  for  two- 
dimensional  Mohr-Coulomb  material 
(applicable  for  Joint  elements  only). 

FRCTN1  =  Peak  friction  angle  (in  degrees)  for  normal 
stress  £  SNSWCH. 

FRCTN2  =  Peak  friction  angle  (in  agrees)  for  normal 
stress  greater  than  SNSWCH. 

SNSWCH  =  Normal  pressure  (psi)  on  Joint  at  which  slope 
angle  of  bilinear  peak  yield  envelope  changes 
from  FRCTN1  to  FRCTN2. 

4.9  JTEHSN ,  IRESID 

JTENSN  *  Counter  indicating  tensile  resistance  across  Joint 

*  0,  Joint  material  can  withstand  no  tension 

normal  to  Joint, 

*  1,  Joint  material  can  resist  tension  normal 

to  Joint  up  to  magnitude  C/tan(FRCTNl). 

IRESID  *  Counter  indicating  whether  residual  shear  strength 
along  Joint  is  less  than  peak  value. 

*  0,  Residual  shear  strength  along  Joint  =  the 

peak  value, 

*  1,  Residual  shear  strength  along  Joint  is  less 

than  peak  value 


4.10  CRESID,  FRESID 

CRESID  *  Residual  (post-peak)  cohesion  (psi) 

FRESID  *  Residual  (post-peak)  friction  angle  (in  degrees), 
<  FFCTN2. 

Note;  If  IRESID  ■  0,  card  4.10  is  omitted. 

Note;  Card  group  4.2  to  4.10  repeated  NZ0NES  times. 
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(2E10.4) 


(4E10.4) 


(215) 


(2E10.4) 


CARD  VARIABLE 


FORMAT 


5.1  NUME,  IZONE,  NPI,  NPJ,  NPK,  NPL,  NCRACK  (715) 

NUME  *  Element  number, 

IZONE  -  Material  zone  number  in  which  element  is  located, 

NPI  to  NPL  =  Node  numbers  comprising  element. 

If  NPL  =  0,  element  is  considered  triangle. 

If  element  is  a  joint  element,  NPI  must  be  either 
node  with  smallest  R-coordinate .  If  the  element 
is  vertical,  NPI  must  be  either  node  with  the 
smallest  z-ccordinate.  NPJ,  NPK,  NPL  must  be 
nodes  given  in  clockwise  order  around  the  element. 

For  all  other  element  types,  there  is  no 
restriction  on  ordering  of  nodes. 

NCRACK  «  Counter  to  identify  joint  elements, 

=  0,  regular  triangular  or  rectangular  element, 

*  1,  rectangular  Joint  element  of  zero  thickness. 

Thus  two  nodes  will  have  the  same  coordinate, 
and  the  other  two  nodes  will  have  the  same 
coordinates . 

Note:  Card  5.1  repeated  NUMEL  times. 

6.1  NUMST  (15) 

NUMST  a  Number  of  start  nodes  for  renumbering 
scheme  (<  8o) 

6.2  (NS  _1T(I),  1*1,  NUMST)  (IU15) 

NSTART  »  Start  node  numbers,  14  per  card. 

7.1  NLINES  (15) 

NLINES  *  Number  of  surfaces  along  which  applied  pressure  acts. 

7.2  LOADNP ,  ANAME  (I5,18aU) 

LOADNP  *  Number  of  node  points  that  are  loaded  by  pressure 
on  one  surface  (<  100). 

ANAME  *  Pressure  descriptor  to  be  printed  as  output,  up  to 
72  characters. 

7.3  UPLOAD,  PRESSU,  PRESSW  (I5,2E10.0) 

NPLOAD  =  Node  number  of  node  to  which  pressure  is  applied. 

PRESSU  *  Horizontal  pressure  \psi )  applied  to  loaded  surface 

at  node  number  NPLOAD,  positive  in  positive  R-direction 
(to  the  right), 
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CARD  VARIABLE 


FORMAT 


PRESSW  =  Vertical  pressure  (psi)  applied  to  loaded  surface 
at  node  number  NPLOAD,  positive  in  positive  z- 
direction  (down). 

Note:  Card  7.3  repeated  LOADNP  times.  Loaded  node  numbers, 

NPLOAD,  are  in  consecutive  order  along  pressure  surface 
such  that  in  moving  from  the  first  to  the  last  the 
pressures  are  applied  on  the  left  hand  side  of  the 
surface,  and  the  boundary  element  is  to  the  right  of 
the  surface. 

Note:  Card  group  7.2  through  7.3  repeated  NLINES  times.  If 
NLINES  *  0,  they  are  omitted. 


8.1  NLINES  (15) 

NLINES  *  Number  of  clusters  of  nodes  to  which  concentrated 
loads  are  applied. 

8.2  LOADNO,  ANAME  (I5,18aU) 

LOADNP  *  Number  of  nodes  in  cluster  (<  100) 

ANAME  *  Concentrated  load  cluster  descriptor  to  be  printed 
as  output,  up  to  72  characters. 

8.3  NPLOAD,  PLOADU,  PLOADW  (I5,2E10.0) 

NPLOAD  *  Node  number  of  node  to  which  pressure  is  applied. 

PLOADU  =  Horizontal  force  (lbs.)  applied  to  node  number 

NPLOAD,  positive  in  positive  R-direction  (to  the  right). 

PLOADW  *  Vertical  force  (lbs.)  applied  to  node  number  NPLOAD, 
positive  in  positive  Z-direction  (down). 

Note:  Card  8.3  repeated  LOADNP  times. 

Note:  Card  group  8.2  through  8.3  repeated  NLINES  times. 

If  NLINES~=  0,  they  are  omitted. 


9.1  NLINES 


(15) 


NLINES  =  Number  of  clusters  of  nodes  for  which  displacements 
are  specified. 

9.2  LDISP,  ANAME  (I5,18aM 


LDISP  =  Number  of  nodes  in  displacement  cluster. 

ANAME  =*  Displacement  cluster  descriptor  to  be  printed  as  out¬ 
put,  up  to  72  characters. 
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CARD  VARIABLE 


FORMAT 


9.3  NPDISP ,  UDISP,  WDISP  (I5..2E10.0) 

NPDISP  =  Node  number  of  node  for  which  displacements  are 
specified. 

UDISP  -  u  -  displacement  (inches 

WDISP  =  w  -  displacement  (inches)^- 

Note:  Cord  9.3  is  repeated  LDISP  times. 

Note:  Card  group  9.2  through  9.3  repeated  NLINES  times. 

If  NLINES  =  0,  they  are  omitted. 

10.1  ITMAX,  ERRMAX,  NFAC,  KTAPE,  ICONTU,  OVERLX  (I5,E10.0,3I5,E10.0) 

ITMAX  ■  Maximum  number  of  iterations  to  be  used  for  each 
solution  increment. 

ERRMAX  =  Maximum  allowable  error  (lbs)  in  force  computations. 

NFAC  =  Number  o'  increments  to  be  used  in  nonlinear  solution 
to  go  from  loads  at  which  stresses  reach  the  elastic 
limit  to  the  actual  loads. 

KTAPE  *  Counter  for  use  of  tapes  for  storage  of  node  point  data, 

»  0,  uses  two  K  tapes  (normal  usage), 

=  1,  uses  only  1  K  tape. 

ICONTU  =  0  will  continue  complete  solution  if  ITMAX  is  reached 
in  any  load  increment  without  convergence  to  within  the 
allowable  error,  (ERRMAX). 

OVERLX  =  Over-relaxation  factor  to  reduce  required  number  of 
iterations  (usual  values  1.2  -  1.8). 


1.  When  ITYPE  »  1  on  card  3.1,  only  one  displacement  component  is  specified  at  the 
particular  node  point.  This  is  equivalent  to  a  roller  support,  as  shown  in 
Figure  A. 2,  in  which  the  roller  is  free  to  move  along  a  line  oriented  at  the 
angle  6  (also  input  on  card  3.1)  with  respect  to  the  horizontal.  The  angle 
0  is  considered  positive  when  measured  clockwise  from  the  horizontal,  and 
defines  a  new  set  of  coordinates  u,  w  as  shown  in  Figure  A. 2.  The  direction 
in  which  the  roller  is  free  to  move  is  defined  as  the  u  direction.  The 
direction  in  which  the  displacement  is  specified  is  defined  as  the  w  direction. 
Thus  in  the  case  of  the  equivalent  roller  support  node  point,  WDISP  is  the 
specified  displacement  in  thw  w  direction,  and  UDISP  is  ignored.  Similarly 
in  the  output,  the  result  given  for  u  is  the  displacement  in  the  u  direction 
and  w  is  the  specified  input  displacement  in  the  w  direction. 

Forces  at  nodes  with  equivalent  roller  supports  are  specified  in  the  usual 
horizontal  and  vertical  coordinate  directions. 


A- 8 


4 

i 


rdlnate  Directions  for  Equivalent  Roller 


Csi  fO 


,iV' w^'ws;^a'*  •i^s#rff*r->- --  ,**■ 


J***"*-*;-*  „i W?=!J*!nrw3f7tiB^r^ 


OVERLAY (M0HAN»0*0  ) 

PROGRAM  S L AM'HNPJT ,  OUTPUT,  TAP  65=  INPUT,  TAPE 6=OUTPUT, 


1TAPE1  ,T  APE2,T  AP6  3,T  APE4,  TAPE8,TAP69,  TAPEIC,  TAPE  1 1 ,  TA  PP  12 


27AP£14*TAPE15»TAPE16) 


COMMON  MAXNP, MXCLS, MX ADJP,MXZ ONE, MXNPB,N TONES, MXPELB  ,NLiMNP  , 
l  NUMEL,  ISTRES,NUM?EL,NUMELP,  PERIOD,  NMKCL  S,FAC  TOR  ,ALAMB 

KTAPE,KRJN:,  I  PR  INT  ,NUMST,  MXSTRT,  1ELA  STC  20  ,  IPLA  ST  (20)  , 
WGT ( 20 ) , NST  ARV  (  T9  ) ,  E  I  {  5,  201,  IP  EL  TP , IN T ,NPRCD S,I MPB X 


MXCLS  =  80  , 

MX  NPB=  350 
:MAXNP=  1600  I 
MX  AD  J P-8 

MXZ0NF=23 -  '  - 

MXST  RT  =  79 
MXP^LB=24 
KRUN=0  .  1 

i 

MCHAN=  5  HMOI-AN 

CALL  OVERLAY!  MOHAN,  1,  0,  6HRECALL  ) 


CALL  OVERLAY  (  MOHAN,  2,  0,  6HRECALL  I 


CALL  OVERLAY  (MOHAN,  3f'0,  6HRECALL  J 


CALL  OVERLAY!  MOHAN,  4,  0,  6HRECALL  ) 


CALL  OVERLAY!  MOHAN,  5,  0,  6HRECALL  ) 


CALL  OVERLAY  (  MOHAN, ’6,  0,  6HRECALL  I 


■  CALL  OVERLAY  (  MOHAN,  7,  0,  6HR(ECAlL  ) 


CALL  OVERLAY! MOHAN,  8,0, 6ERECALL  ) 


CALL  OVERLAY ( MOHAN, ! 9,0,6ERECALL  ) 


CALL  OVERLAY ( MOHAN, 10, 0- 6ERECALL ) 


CALL  OVERLAY ( MOHAN, 11,0, 6HRECALL ) 

CALL  OVERLAY ( MOHAN,  12,0, 6ERECALL  ) 


ooo  ooooooooooooooooo  o  ooooo  ooo 
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OVER!  AT  rwUFAN  ,1 (T - T'  . 

PROGRAM  LNK1A 

COMMON  MAXNP*  MXCLS,  MX  ADJ P»  MXZQN E*  MXNPB  * N20NE  S » MXPE  LB  ,  NCMNP  , 

1  NUMEL,  IS  f  RES  *  NUM P EL, NUMEL P ,  PE1IDD*NMKCLS»EACT0R»ALAMB» 

2  «r  APE  ,  KRJN,  IPR INT»  NUMST, MXSTRT • I ELA  S  T(  2 C )  ,  l  PLA  ST  ( 2 0)  , 

3  WGT  (20  )  *  NST  ART  (  79  ) »  E  I(  5,20),  IPEI  TP,  IN  T  ,NPRCD  S  ,  I  MPB  X 

DIMENSION  R{  1600),  Z(  1600),  ITYPEt  1600  ) ,  THE  TA  ( 1 6C0) 


DIMENSION  ANAMEI  18),SSTAR(  10),HSTAR(  10) 

SYSTTM-UATA . . 

M0HAN=5HM0HAN 


READI5 , 100 )  ANAME,NUMNP, NUMEL, ISTRES, IMPBX,IPR!NT 

100  FORMAT  <  18  A4/14J5)  _ 

ANAME  =  PROBL  EM  T  ITLE 
NUMNP  =  NO.  OF  NODE  POINTS 
NUMEL  =N0.  OF  ELEMENTS 
ISTRES  =  0  AX  ISYMMETRIC  PROBLEM 
=  1  PLANE  STRAIN  PR08LEM 
=  Z — PLANE  STRESS  PRCTBLEM 
I PRI NT=0  CNLY  ECHO  PRINT  INPUT  DATA 
=  1  CNLY  PRINT  ADJACENCY  TABLE 
=  2  ONLY  PRINT  STIFFNESS  TABLE 
=3  CNLY  PRINT  STRESS  TABLE 
=4  CNLY  PRINT  MASS  VECTOR 
=  CNLY  PRINT  LOAD  TABLES 
=  6  CNLY  PRINT  RESULTS  OF  ELIMINATION 
=7  CNLY  PRINT  STRESSES  IN  PLASTIC  ELEMENTS 
=  99  PRINT  ALL  ABOVE  TABLES 

WRITE(6,101)  ANAME, NJMNP, NUMEL,  IPRINT 

101  F0RMATTrHTiI8  A4/V20H  NO.  OF  NODE  PTTNTS  =  ,I5^ 

1  20 F  NO.  OF  ELEMENTS  =,15/ 

2  20H  IPRINT  =*  I  5 ) 

IF ( 1ST  RES . NE .0 )  GO  TO  103 

WR  IT  E ( 6 , 104 )  ISTRES 

104  FORMAT  (  20  H  ISTRES  =♦  I  5,  3X,  20HAXI  SYMME  TRIC  PROBLEM) 

GC  TO  102 

103  IF ( 1ST  RES  *NE • 1 )  GO  TO  105 
WR  ITE(6  *  106)  ISTRES 

106  FORMAT  ( 20H  ISTRES  =,  I  5,  3X,  20HPLANE  STRAIN  PROBLEM) 

GC  TO  102 

105  IF ( 1ST  RES . NE .2 )  GO  TO  107 
WRITE ( 6, 1'OBT  T5TRTS 

108  FORMAT  (  20H  ISTRES  =,  I  5,  3X»  20HPL  ANE  STRESS  PROBLEM) 

GC  TO  102 

107  WRIT E 1 6 , 109)  ISTRES 

109  FCRMAT  (  20H  ISTRES  =,  I  5,  3X,  20HERR0R  IN  ISTRES  DATA) 

CALL  EXIT 

***♦  READ  NOCE  POINT  DATA  ANO  STORE  ON  TAPE  14 

47 


102  PI=3.1415?27 


REWIND  14 
WRITE  (5, 1 10) 

110  FORMAT ( 1  HI , 1 5 HNODE  POINT  CATA// I2X, 7HN0DE 
15HTHETA,15X»  6 HR AD IJS»  14X, 5HDEPTH/14X, 3HN0. 
2  1 4  X  *  4  H  (  FT  )  ,  1 6  X  » 4  H  (  FT  )  // ) 


P  T » 4  X  » 4HTYPE ,1  3X, 
*  21X  »9H (DEGREE S) , 


DO  III  I=1,NJMNP 

READ  ( 5 V ri'2T  "NPM»"RTNPN  )»  Z  {  NPN  ) « 

FORMAT ( I5,2E10.4,  1 10, E10.4) 


ITYPEfNPN  ),  THETA  (NPN) 


C  NPN  =  NODE  POINT  NO. 

C  R  =  RAD  I J  S  (FT) 

C  Z  =  CEPTH  (FT) 

C  ITYPE  =0  FREF  NODE . 

C  =1  FIXED  NODE  IN  ONE  DIRECTION  (EXCEPT  Z-AXIS) 

C  =2  FIXED  NODE  IN  TWO  DIRECT  IONS(  INCLUDING  Z-AXIS) 

C  =3  FREE  NODE  ON  Z-AXIS  (NOT  NECESSARY  TO  SPECIFY) 

C  THETA  =  CLOCKW  IS  £  ANGLE  OF  ROLLER  DIRECTION  FROM 

C  R-AXIS  (DEGREES) 

C** *******  ******* *  *  ****** *44* ************ *4*4*44 ******* *********** ****** 
IF  ( IMPBX.NE. i )  GO  TO  15 
REWIND  15 

WRITE!  15)  NUMNP,  l  R  (  l  ),  Zi  I  ),  1=1,  NUMNP  > 

Q******* ********** ****************************************************** 

C 

15  DC  15  NPN=1,NJMNP 

IF  (R(  NPM  .NE  .0.0  )  GO  TO  17 
IF (ITYPE(NPN) .60.2)  GO  TO  17 
IF(ISTRES.NE.O)  GO  TO  17 
ITYPE ( NPN ) =3 

17  WRITE(6,113)  NPN;  ITYPE(NPN),  THETA(NPN)»R(NPN)  ,Z(  NPN  ) 

113  FORMAT  (  116. 1-7, 5X,  IP. >E  20. 7) 

R( NPN)=R(NPN) *12.0 
Z(NPN)=Z(NPN)*12.0 
THET  A(  NPN)  =  T  HET  A(  NPN)*P  1/180. 

WRITE  (14)  NPN,  R(  NPN),  Z(  NPN  ),  ITYPE(NPN),  THETA  (NPN) 

15  CONTINUE 


15 

C 

C**** 

C 


READ  ZONE  PROPERTY  DATA  AND 

RE  AD (5 , 1 14  )  NZONES 
FORMAT ( 1415) 

WRITE(6, 118) NZONES 

FORMAT ( 1H1, l 8HZ0WE  PROPERTY 

WR I T  E  (  14  )  NZONES 

DC  1  1  =  1, NZONES 

REA0(5 ,  119  )  I Z , AN AM 6 

FORMAT  (  15, 18A4) 


STORE 


TAPE 


DATA/14H  NO.  OF  ZONES’, 15) 


NZONES’ NO.  OF  MATERIAL 
IZ  =ZONE  NJMBER 
ANAME  ’ZONE  DESCRIPTOR 


ZONES 


WRITE(6,120)  IZ, ANAME 

FORMAT  (  //  1 3H  ZONE  NUMBER’,  I  5,  2X,  18A  4  ) 


RE  AD  (5, 121)  I  FLASTl  IZ  ),  IPLAST(  12  ) ,  WGTC  1Z),(EI(J,IZ),J  =  1,5) 
FORMAT  (215,F10.0,  5E10.0  )  £g 


oooooo  o  o  '~i  oo  o  n  ooooooooooooo 


A-12 


WGT  =UNIT  WEIGHT  (LB/FT3) 

El  =  ELAST  I C  MODJLUS  (PSI)  FOR  ISOTROPIC  MATERIAL 
E2  =  PTnS5W,'SHrA'nU~F0R  T50TR0PTC  MATERIAL"  ~ 

E3  ,4  ,5  =  PARAMETERS  FOR  AN  1 50TROP  IC  ELASTICITY 
I  ELAST  =  l »  ISOTROPIC  ELASTICITY 

=  2,  ANISOTROPIC  ELASTICITY 
=  3,  COMPRESSIBLE  FLUID 
IPLAST=0,  LINEAR  MATERIAL 

=Y»  VON  MIS’EST~PL“ASTIC  ITY 

=2 ♦  THREE-DIMEN.  MOFR-COULOMB  MATERIAL 

=3,  TWO-DIMEN.  MOHR-COULOMB  MATERIAL,  JOINT  ELEMENTS  CNLY 

WRITE  (6, 122)  I  EL  AST  (  12  1  *  IPLASTI  IZ  ),WGT(  IZ  ) 

122  FORMAT  1 13X,?0HIEL  AST  =,15/ 

1  “  I0X,70HTPUAST -  "  =",T57  " 

2  13X,23HJNIT  WEIGHT  =,  IP  E  1  5.  5 , 2X ,  3HPCF  ) 

IFIflELASTITZ  ).EQ.O).OR.(  I  EL  A  ST  I  IZ1.GT.3))  GO  TO  400 
IF ( I ELAST ( IZ ) . GT •  1 )  GO  TO  123 
WR  IT  E  (  6 , 124 )  EI<  1,  IZ  >,  Eli  2,  IZ  ) 

124  FORMAT  rrffXyZJHEL'ASTTC  MOUULU5""  "  =rrPYY5. 5,  ZX73HP  SI  / 

1  13X  » 20  HPO ISS ON*  S  RATIO  =,  1PE15.5) 

GO  TO  500 

123  IF  (I  ELAST!  IZ  )  .GT  .2)  GO  TO  125 

WRITE  (6, 137)  £  I C  l,  IZ  ),  Ell  2,  IZ  >,EI(  3,  IZ  ),EI  (4,IZ)  ,EI  (5,1  l) 

137  FORMAT  (  10X  , 20  HEl  =,1PE15.5/ 

1  TTX  ,?0HE2  =,  PE15.57 

2  10X  ,20  HE3  =,  1PE15.5/ 

3  10X , 20  HE4  =,  1PE15.5/ 

4  10X,20  HE5  =,  1PE15.5) 

GO  TO  500 

125  WR IT E 1 6 , 126 )  E I ( 1,  IZ  ) 

1 2  6  FORMAT  TTUT,?OHffJUK~MOWL  JS  =,  TP  El  5.  5 , 2X73HP  SI ) 

GC  TO  500 

400  WR IT E (6 ,40 1 ) 

401  FORMAT  1 19H  ERROR  IN  ZONE  CATA) 

CALL  EXIT 

500  WRITEI14)  IZ,  IELASTl  IZ),  IPLASTI  IZ),WGT(  IZ), (El  (J,IZ)  ,J=1  ,5) 

IF ( I PLAST ( IZ ) .GT . 3)  GO  TO  400 
I F ( I  PL AST ( IZ  J.EO.O)  GO  TO  1 
IF (IPLASTI IZ ) .GT . 1)  GO  T0_200 

MISES  MATERIAL  DATA 

IF ( I ELAST I IZ ) .NE.l)  GO  TO  400 

RE  AD  ( 5 , 1 14  )  NOYILD 

RE  AD  1 5, 127)  I  SS  T  ARI  J  ) ,  J  =  1,  NOY  ILD  > 

RE‘ATTr5TT27T  "I  HS'T  ARI  J  ) ,  J=1  VNOYTL  DO 
127  FORMAT I7E10. 4 ) 

NOY  I  LD=  NO.  OF  NONELASTIC  STRAIGHT  LINE  SEGMENTS  ON 
UNIAXIAL  STRESS-STRAIN  CURVE 
SSTAR  =ST RES S  AT  BEGINNING  OF  SEGMENT  IPS!) 

HSTAR  =S10PE  OF  SEGMENT  (PSD 


WR IT  E I  6 , 128 )  NOY  ILD 


49 


ooonoooonoo  nono  ooo 


A-13 


128  FCRMAT  (  I0X,20HN0.  OF  PL.  SEGMENTS*,  1 5) 

WR  IT  6  ( 6  '  1 39 )  SSTAR(l) 

139  FCRMAT  t  '  ',20HSTRESS  AT  START  =,  1PE  15.  5, 2X,  3HPSI) 

lFINOYriL.EGVl)  GTTTO  141 . . 

WR I TE ( 6  »  140  )  (  SST  AR{  J  ),  J  =  2,N0Y  ILD) 

140  FCRMAT (29X,1H=, 1PE  J5.5,  2X,  3HPSI  ) 

141  WRITE (6  ,  142)  riST  AR(  1 ) 

142  FCRMAT { 10X,20H$LOPE  OF  EL.  CURVE  =,  1PE  1  5. 5 ,  ?X,  3HP  SI  ) 
IFIN0YIL0.EQ.1)  GO  TO  143 

WRITE(6,r40r  fHSTARTJ  )YJ  =  2,N0Y  ILD) 

143  DC  129  J=1,N0YILD 
IF(HSTAR(J).GE.EI(1*  12))  GO  TO  400 

129  HSTAR(  J)  =  EI(  1,  12  )  *HST  AK(  J  )/(EI(  1,  12  )-HSTAR(  JM 
WR  IT  E  ( 6  *  144 )  HSTAR(  ’  ) 

144  FCRMAT  (  10X,20HSLOPE  OF  PL.  CURVE  =,  1PE  .1  5 . 5 , 2X ,  3HP  SI  ) 

I F  ( NOYI  L’D.EO.  1 )  GO  TO  145 

WRITE (6, 140)  (  HST  AR( J ) ,  J  =  2,  NOY  IL  D  ) 

145  WRITE!  14)  NOY  ILD,  (SSTAR(  J  ),  J=  l,  NOY IL D )  ,  (HSTAR  (  J)  ,J=1  »N0YI  LD ) 

GC  TO  1 

THREE-DIMENSIONAL  M0HR-C0UL0M8  MATERIAL 

20^  IFIIPLASTI 12 ) .GT.2)  GO  TO  300 
IF ( I ELAST ( IZ )  .NE .  1 )  GO  TO  400 
RE  AD ( 5  ,  127  5  COHESN,  FRCTAN 

CCHES  N=S  01 L  COHESION  I  PS  I)  FROM  TRIAXIAL  TEST 
FRCTAN=FRICT ION  ANGLE  (DECREES) 

WR IT  E ( 6  1 20 1 )  COHESN,  FRCTAN 

201  FCRMAT  (  10X  ,  20  HCOHES  ION,  TRIAXIAL  =,  1PE  1  5. 5 , 2X,  3HP  SI  / 

1  10X,?0HFRICT  ION  ANGLE  =»  1PE 1 5. 5 , 2X ,  7HDEGREF  S) 

FRCT  AN=  FRCT AN*P 1/  180. 

ALPHA*  (2. /SORT  (  3.  ))*  S  IN{  FRCTAN  ) /(  3  .- S  IN  (  FRC  TAN)  ) 

CAPPA= (6. /SORT ( 3. ) ) *C0HESN*C3 S( FRCTAN )/( 3.- SIN (FRC TA N ) ) 

WR  IT  E  ( 6  9 202  )  ALPHA,  CAPPA 

202  FCRMAT  i  10X,20HYIELD  COEF,  ALPHA  =,1?E15.5/ 

l  lOXf20H><  IELC  COEF,  X  =,  1PE  l  5.  5, 2X,  3HP  SI) 

CQSTH=SGRT(ALPHA**2./(  ALPFA**2.+(  1./6.)  )) 

IF  niSTRES.ro. 2).  ANC. (CAPPA. 6Q. 0. 0)  i  GO  TO  4CC 
WR  IT  E  ( 14)  ALPHA,  CAPPA,  COSTH 
GC  TO  1 

TWO-DIMEN.  MOHR-COJLOMB  MATERIAL  FOR  JOINTS  ONLY 

300  READ (5 ,127  )  COHESN,  FRCTN \,  FRCTN 2,  SN SWCH 

CGHESN=COHES  IVE  COMPONENT  OF  PEAK  S  TRENGTHt  P  SI  ) 

FRCT  Nl=  !NIT  I  At.  PHI  ANGLE  FOR  BILINEAR  FAILURE  ENVELOPE  (DEGREE  S) 
FRCT  N2  =  PHI  ANGLE  FOR  BILINEAR  FAILURE  ENVELOPE  WHEN  NORMAL 
STRESS  GREATER  THAN  SNSWCH  (DEGREES) 

SNSWCH=  NORMAL  STRESS  AT  WHICH  BILINEAR  FAILURE 
ENVELOPE  CHANGES  SLOPE 


WR  I  t  ..(6,301)  COHESN,  FRCTN  l,  FRCTN  2,  SNSWC  H 
301  FCRMAT  (  10X  ,20HC.0HES  ION  =,  13E  15.5, 2X,  3HP  SI  / 

1  10X,20HJNIT  IAL  PHI  ANGLE  =,  iPE  1  5.  5, 2X,  7HDEGREF  S/ 

2  1DX,23HSEC0NC  BILINEAR  P5il-,  iPE~l  5.  5,  2X,  7HD‘rGREF  $/ 

3  10X , l 7HN0RMAL  STRESS  FOR/ 


12X  ,  l  2  HBRE  AK  IN  BILINEAR/ 


A-lU 

5  l2X,iShlAitLURe  ENVELOPE  =,  1&E15. 5, 3HP$II 

SNSWCH--SN"  r  H 

c 

READ  {5, 1141  JTENSN,  TRE51C  ~ 

C  • 

C  JTcNSN=0,  JOINT  MATERIAL  CAM  WITHSTAND  NO  TENSION  NORMAL  TO  JOlNt 

C  =T,  JOINT  MATERIAL  CAN  WITHSTAND  TENSION  NORMAL  TO  JOINT 

C  UP  TO  MAGNITJDE  COHESN /TAN(  FR'CTN  I )  ■ 

C 

C  IRESrD=TTi'irESTD0  5ir  SMEAR  STRENGTH  AFTER  "YE  I  □J=FFA"K '  SHEAR  STRENGTH 

C  1,  RCSIDJAL  SHEAR  STRENGTH  LESS  THAN  PEAK 

C 

IF  ( JTENSN. EQ. 3  )  WRITE!  6,  305  ) 

305  FORMAT  (  10X.23HJOINT  MATERIAL  TAKES/ 

1  12X  ,17  HNO  TENSION  NORMAL / 

2  1ZX  »8TIT0  JO  INTI  1 

C  | 

IF ( I  RES ID.EQ.  I )  GO  TO  310 
WRIT  E ( 6  »307 J 

307  FORMAT ( 10X , 1 4HRES  IDUAL  SHEAR/ 

1  12X,  15HSTRENGTH  =  PEAK) 

CRESTD~=“TUHESN  " 

FRESID  =  FRCTN1  : 

GC  TO  320 

C  1 

310  READ  (5,127)  CRES  ID, FRES  IC 
C 

C  C  R  ESI  D  — =  "TTESTDUAir'  COfi  E5T0N  IT*  S  I  )  * 

C  FRESID  =  RESIDUAL  PHI  ANGLE  (DEGREES) 

C  •  i 

WRITEI6 ,315)  CRESTC,  FRES  IC 

315  FORMAT  ( 10X,20HRES  IDUAL  COHESION  =,  IRE  1  5.  5 , 2X,  3HP SI  / 

l  10X,20HRES  IDUAL  PHI  ANGLE  =,  1PE  1  5. 5, 2X,  7H0EGREF  S) 

C 

C  1 

320  FRCT Nl= FRCTNi *P 1/  180.  , 

FRCT  N2=  FRCTN2  *P 1/  180 . 

FRES  ID=FRES!D*Pl/ 180. 

MY  I  ELD  =  0 

WR ITE  (14TC0HESN,  FRCTN1,  FRCTN2,  SN  SWCH,CR ESID , 

1  FRESID, MY  IELD,  IRES  ID,  JTENSN 
GO  TO  i 
C 

1  CONTINUE 
C 

C  **  *  *  RFAD  ElEMENt  DAT  AT  REORDER  EL'EMFTT  -  NODE  S,  OUT" ON"  TAPE  l 
C  PLASTIC  ELEMENTS  ON  TAPE  14 

C  • 

REWIND  I 
NUMPEL=0 
WR ITE (6 , 13 1 ) 

131  FORFATTTTrn  1"2 HEL EMENT  DATA//12X,  7HELEMENT, 5X, 4HZ0NE ,6X,3HNPI  , 

17 X ,3HNP J, 7X , 3HNPK , 7X,  3HNFL , 7X, 6HNCR ACK /  14X , 3HN0.  8X,3HN0. //) 

C  *********************************************************************** 

lElIMPBX.EC.DWRITE!  15JNUMEL 

£*************************************************************  C*. ********* 

C 

DO  7  M=1 , NUMFL 

NPL=0  . 

RE  AD  ( 5 , 1 14  )  NUME,  IZQNE,NPI,NPJ,  NPK  ,  NPL  ,  NCR  ACK 


ooooon  ooo  no  o  on  ooo  .no  oo o  o 


vm 


A-15 


NUME  =  ELEMENT  NUMBER  , 

IZONE  = Z ONE  NJMBER 

■  NP  =  NODE  POfNT  NUWfRr  '  . .  .  ' 

NCRACK=0  REG J L  AR  ELEMENT  »  =1  CRACK  MODEL 

I 

•  CALL  OROER(NPI,NPJ,NPK,NPLtK»Z,  I  ST*  ES,  KASE  ,  MA  XNP  ,NCRAC  K) 

WRITEd)  NUME,  IZUN6,KASE>NP  i,NPJ,NPK,NPL,NCRACK  ' 

,  WRITE  (6,132)  NJME,  IZONE, N3I,NPj,NPK,\|PL  ,NCRACK 

132  FORMAT  (  !  16 , 1 1  i ,  3X ,  I 6,  ’4<  j  1 6,  AX,  1 6,  4X",  1 6, 4X,  I  &T 

^♦♦♦^^♦^♦♦♦^♦^♦^♦V*^?^****^**^********^^**^***^***  ***♦****<!*********♦** 

IFIIMPBX.'EC.  IIWRITEI  15)NUME,NPI,NPJ,NPK,NPL 
«*************< *****************  *********$*******>**********  ******** 

IF  (I  PLASH  IZUNE)  .EQ.O  )  GO  TU  7  1 
'  NUMPEL=NJMPEL*1  i 

IFINPL.NE.O)  GO  TU  133  , 

I T  L=  0 
THL=0.0 
RL=0 .0 
ZL=0  «0  : 

GO  TO  134  . 

133  IT  L=  IT  YPE(  NPL  ! 

THL-THETAINPL  ) 

1  RL=  R ( NPL )  . 

ZL=Z ( NPL ) 

134  WRITE114)  NJME,  IZONE,  IPLASTl  IZONE  ),  NP  I  ,NP  J  ,NPK  ,NPL  ,NCRAC  K, 
I!TYPE(NPI),ITVPE(  NPJ ) ,  ITYPE(NPK), ITL , 
2TH£TA(NPI),THETA{NPJ),THETA(NPK  5 ,  THL  ? 

■  3  '  RiNPH,  .  R(NPJ),  R(NPK),RL, 

4  Z(NPI),  l ( NPJ ) ,  Z(NPK),ZL 

7  CONTINUE 

i 

WR1TE16,  i  50  >  NJMPEL 

150  FORMAT  (1HW26HN0.  OF  NONLINEAR.  EL EMEN TS  =  , I  5 > 

****  STARTING  NODE  DATA  FOR  PATH  ROUTINE 

'  ! 

RE AD ( 5  » 1 14 )  NJMST 

READ(5,114)  (NSTARTl  I),  J=l, NUMST) 

NUMST  =  NO.  OF  STARTING  NODESl  L  T  .  IOC  ) 

NSTART=ST ART ING  NODE  NUMBERS 

WRITE(6,135)  NUMST 

135  FORMAT  ( 1H1 , i B HST ART  ING  NOCE  DATA '/20H  NO.  OF  START  NQ0ES=,I5//I  . 
WRITEU,136)  (NSTARTl  I),  1=1,  NUMST) 

,136  FORMAT  (  22H  S  T  ART  I  NG  NODE  NUMBER S/(  1 5X,  1 C I  7  j  ) 

♦  ***  AT  THIS  TIME,  TAPE  14  HAS  ORIGINAL  NODE  POINT  DATA 

2UNE  DATA 

PLASTIC  ELEMENT  DATA,,  ORIGINAL  NODF  CROC 
TAPE  1  HAS  ALL  ORIGINAL  ELEMENT  DATA 

REWIND  14 
REWIND  I 
RETURN 
END 


C 

C 


ooooooooooooooo 


SU8RQUT INE  OROERINP  J,NPJ,NPK,NPL,R,  Z,  I  STR6  S»KA  SE  ,MAXNP,NCRACK) 
DIMENSION  fU  MAXNP  )»  Z(  MAXNP  J 

t**"  ORDER  NODE  PUINT  LETTERING  FDR  ELEMENT  AND  DEFINE  CA  SF 


R  =  RA5JIAL  COORDINATE  OF  NODE  POINT 

Z  ^VERTICAL  COORDINATE  OF  NODE  POINT 

KASE  =1,  GENERAL  TRIANGLE 

=  2T‘ TRTANOLTT  ONF  "NODE  ON  Z-AXIS 
=  TRIANGLE,  TWO  NODES  ON  Z-AXIS 
=  4,  GENERAL  RECTANGLE 
=5,  RECTANGLE,  ONE  NODE  ON  Z-AXIS 
=6,  RECTANGLE,  TWO  NODES  ON  Z-AXIS 
ISTRES=0,  AXISYMMETRIC  PROBLEM 
=Tl~PO*NE  STR-ffW  PROBLEM 
=  2,  PLANE  STRESS  PROBLEM 


IFINCRACK7FQ.O)  GO  TO  20 

A= IRINPJI-RI NPI) )**2+( ZINPJ I-ZINP I))**2 

IFIA.GT.O.O)  GO  TO  21 

I-^p-j -  -  -  - 

J=NPK 
K=  NPL 

L=  NPI  •■■■  " 

NP 1=  I 
NP  J=  J 

NFK=K - - -  '  ‘  - 

NPL=L 

21  CONTINUE 
KASE=4 

IFCRINPIS.NF.O.O?  RETURN 
IF ( 1ST  RES . EQ.O )  KASE=6 

RETUW - - - 

20  CONTINUE 
NI  =  NP! 

NJ=NPJ 

NK^NPK 

NL=NPL 

IFTICriTTTTLTi'R TN  JTT "  GO  TO  1  "  - 

IFIRINI).NE.R(NJ) )  GO  TO  2 
IFIZ(NI).LT.ZINJ))  GO  TO  1 

2  NI  =  WPJ"  ' 

NJ=NPI 

NPI=NI 

NP^-RO 

I  IFIRINI I.LT.RINK) )  GO  TO  3 
IF (RINI). NE. RINK ) )  GO  TO  4 
IF (Z(NI).LT.Z t  NK ) )  GO  TO  3 
4  NI  =  NPK 
NK=NPI 
NPI  =  NI 
NPK=  NK 

3  IFtNPL.EQ.O)  GO  TU  5 
iFlRlNU.LT.RINL )  )  GO  TO  5 
IFIRINI >.Nf,R(NL) )  GO  TO  6 
IFIZINI )  •  LT  •  Z  (  NL  ) I  GU  TO  5 

6  NT  =  NFL' . . 

NL  =  NPI 
NP  1  =  NI 


GO  TO 


5 

GO  TO 
GO  TO 
GU  TO 


<■>  o  o  ooo  ooo 


NPL=  NL 


NODE  POINT  I  IN  PROPER  LOCATION  (CLOSEST  TO  ORIGIN) 

5  AJ-R ( NJ ) -R( N ! ) 

BJ=Z(NJ)-Z(NI ) 

AK=R(NK)-R(NI ) 

BK=Z ( NK)-Z (NI ) 

H  JK=  AJ*BK-AK*BJ 

IF  (NPlTNFiOT'CU  Tm/ - 

TRIANGULAR  ELEMENT 

IF  (HJK.GT .0. )  GO  TO  8 
NPK=NJ 

NP  J=  NK“ . . .  .  -  --  - 

8  IF (R( NPI ) . EQ.O . )  GO  TO  9 

10  KASE= 1 
RETURN 

9  I F (I  ST  RES • NE . 0 )  GO  TO  10 

I F (R ( NPK ) . FQ«  Q  .  )  GO  TO  11 

KASE=2  - -  - 

RETURN 

11  KASE=  3 
RETURN 

RECTANGULAR  fcL EM "3NT 

7  AL=R ( NL ) -R ( N I ) 

BL=Z  (  NL  )  -Z  (  N  1  ) 

HJL=AJ*BL-AL*BJ 
HKL=AK*BL-AL*BK 
IF (HJK.GT. 0. )  GO  TO  12 

IFtHJL.GT.O.  )  GO  TO  13  .  . 

I F ( HKL . GT .0 • )  GO  TO  14 
NP  J=  NL 
N?>L=NJ 
GC  TO  15 

14  NP J=  NK 
NPK=NL 
NPL=NJ 
GC  TO  15 

13  NP  J=  NK 
NPK=  No 
GC  TO  15 

12  IFIHJL.GT.O.)  GO  TO  T6" . 

NP J=  NL 

NPK=  N  J 
NPL=  NK 
GO  TO  15 

16  IF (HKL.GT .0. )  GO  TO  15 
NPK=NL 

NPL=  NK 

15  IF(R(NPI).EO.O.J  GO  TO  17 
18  KASE=4 

RETURN 

17  IF ( 1ST  RES .NF.O  )  GO  TO  18 
IF(RCNPL) .EQ.O.  )  GO  TO  19 
KASE=5 

RETURN 
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19  KASE=6 
RETURN 
END 


OVERLAY THOHAN ,2,0  I 
PROGRAM  LNK1B 

COMMON  MAXNP, MXCL S , MX  ADJP»MXZQN E » MXNPB , NZONES, MXPEL3 , NLMNP , 

2  KTAPE.’kRJN,  IPRINT,NUMST,MXSTRT,  I  EL  A  ST(2C)»IPLAST(20)  ** 

3  WGT  ( 20  ) »  NST  ARr(79J»EI(  5.20),  IP  ELTP  ,  IN  T  ,NPRCD  S  ,  I  MPB  X 

01  MENS  ION  NPADJI 1600, 8 ) » NAOJ NP I  1600 ) .NADJJL ( 16C0) 

M0HAN=5HM0HAN 

DC  5  I*T»  NOMNP  '  “ 

NADJNP (  I  )=0 
NADJELI  I  )=0 
DO  5  J= 1 .MXADJP 

6  NPADJI i,J)=0 

REWTNU-I - 

DO  7  M=  1 » NUMEL 

RE  ADI  1 )  NOME,  IZONE,  KASE,  NP  I,  NPJ,  NPX  »  NPL  .NCRACK 

7  CA  LL  AD7NPT WODJ  P  VWAX NP ,  NUMNP ,  NP  ADJ  ,  NAD JEL  ,  NUME  , NPI  ,  NP  J .  NPK , NPL ) 
CALL  VADJNPI MX ADJ P, NACJNP. MAXNP , NUMNP .NPADJ ) 

REWIND  1_ 

REWIND  8 

WRITEI8)  (NADJNPI  I), NADJELI  I), (NPADJI  I ,  J  ),  J  =  i,  MXADJP  )  ,1 =1  , NUMNP) 
REWIND  8 

iFCIIPRINT  «NE  .  1 )  .  AND.  I  IPR  INT  .NE  .9<i>  RETLRN 
WRITEI6.1) 

1  FORMAT ( 1H1.38HT ABLE  OF  ORIGINAL  ADJACENT  NUDE  POINTS// 

1  4X.4HN0DE.13X.6KN0.  0F,4X,6HN0.  OF ,  27X  .2CHAD  JACEN  f  NODE  POINTS/ 

2  4X,5HP0INT.  UX.9HA0J  .  PTS  •»  IX,  9HADJ  •  ELS.  ,  5X,  IH1  ,9X  ,  1H2  ,9X  ,1H3  , 

3  9 X, 1H4 ,9X .IH5.9X, 1H9.9X.  1H7,  9X,  1H8//) 

DO  7T^T7N0WRP 

2  WRITEI6.3)  I,  NADJNPI  I),  NADJELI  I),  I  NP  ADJ  I  I ,  J  ) ,  J  =  1 ,  MXADJP) 

3  FORMAT! 18, 8X, 2110, 8110) 

RETURN 

END 


SUBROUTINE  ADJNPI MXADJP, MAXNP, NUMNP ,NPADJ, NAD JEL, NOME , 
1 NP l , NP J, NPK, NPL  5 

Dl  MENS  ION  NPADJI  MAXNP,  MXADJP  ) ,  NADJEL  I MA  XNP  )  ,NA  (4) 

***♦  FORM  TABLE  OF  ADJACENT  NOCAL  POINTS 


MX  AD JP*  MAX  *  NO.  OF  ADJACENT  NUDAL  POINTS  ALLOWED 

MAXNP  s  MAX •  NO.  OF  NODE  POINTS 

NUMNP~»TiO.'  OF  NODE  POINTS 

NPADJ  =  ADJACENT  NODE  POINT  NUMBER 

NADJ6L=NJMBEK  UF  ADJACENT  EL^gNTS  AT  EACH  NODE  POINT 


o  o  o  o  o 


NPl  = ELEMENT  NODE  POINT  I 

NPJ  = ELEMENT  NUDE  POINT  J 

NPK  = ELEMENT  NODE  POINT  K 

NPL  '  =tTFMENT  NWFWrNT  L,  lFO,  TT! ANGULAR  ElFMENT 

NUME  =  ELEMENT  NUMBER  BEING  CONSIDERED 
NOTE-  TABLE  ASSJMEO  TO  BE  ALREADY  ZEROED  OUT 

NA ( 1 )  =  NP I 
NA  12  )  =  NPJ 
NA ( 3 ) =  NPK 
NA  (4  )  =  NPL 
ICOUNT=I 
9  NPNU M=  NA (  1 ) 

NADJEL I NPNUM ) =NADJEL(  NPNUM )  +  l 
MX  =  NA ( 2  ) 

JCOU  NT  =  1 

*>  DC  1  I  =  1 »  MXADJP 
J=  I 

I  F  (NPADJI  NPN’JM.  I )  .EQ.MX  )  GO  TO  2 
IF  (NPADJ(  NPNJ'1,  I  )  .EO.O  )  GO  TO  3 

1  CONTINUE 

WRITE  T6  rrr  .  )  NUME,  NPNUM,  MX,  {NPAOJlNPNUM,  I  )  ‘,1*1  .MXADJP) 
CALL  EXIT 

3  NPADJI NPNUM, J  )  =  MX 

2  JCOUNT  =  JCOUNT+1 

IF  I  JCOU  NT.GT  .3)  GO  TO  4 
I F  QCOlfNT  .  GT  « 21  GO  TO  102 
MX=  NA( 3  ) 

GO  TO  5 
102  MX= NA ( 4  ) 

IFIMX.EC.O)  GO  TO  4 
GO  TO  5 

4  GO  TO  (6,7,8, 1J3),  ICUUNT 

6  I C  OU  NT  =  2 
NA ( 1 )  =  NPJ 
NA  S2 )  =  NPK 
NA  (3  )  =  NPI 
NA  (4  )=  NPL 
GO  TO  9 

7  I C  OU  NT  =  3 
NA 1 1 )  =  NPK 
NA 12 )  =  NPl 
NA (3  J  =  NP j 
NA  (4  )  =  NPL 
GO  TO  9 

8  I C  OU  NT  =  4 
NA  1 1  )  =  NPL 

IFINAm.EC.O)  GO  TO  103 
NA  (2  )  =  NP  I 
NA (3  )  =  NPJ 
NA (4  )  =  NPK 
GO  TO  9 

101  FOR‘WArrrHT,'4  3HERROR  Itf  FORM  IN G‘ ADJACENT  "NODAL ‘WTNT  ARRAY/ 
121 H  ELEMENT  NJMBER  =, I5/21H  NODE  POINT  NUMBER  =,15/ 

22 1 H  AD-ACENT  NODE  PO INT  =  , 1 5// 15H  NPADJ I NPNUM, I) /( 21X  ,  I  5) ) 


on  o  oono  ooooooooooo  ooo 


-  f  •~T^nr*  *9;.g4«  J  »V,mj  Ui,^^  -y  «qff  »»p- 
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10}  RETURN 


^7 


SUBROUTINE  V ADJNP I  MX ACJ P, NADJNP , MAXNP , NUMNP ,NPADJ> 

01  MENS  ICN  NADJNPI  MAXNP  ),  NPADJ I  MAXNP  ,  MXADJP  ) 

**♦*  FORM  V+CTOR  INDICATING  THE  NUMBER  OF  ADJACENT  NODE  POINTS 
AT  EACH  NOCE  POINT 

MX AD JP=  MAX •  NO.  OF  ADJACENT  NUDE  POINTS  ALLOWED 
NADJNP8 NO.  OF  ADJACENT  NOCE  POINTS  AT  EACH  NODE  POINT 
MAXNP'  =FAX.  NO.  OF  NOCE  POINTS 

NU MNP  =  NO.  OF  NODE  POINTS 
NPADJ  = ADJACENT  NODE  POINT  NUMBER 

DO  12  M=  l ,  NJ  MNP 

DC  10  PTTMX’ADJP  . 

J=I 

IF  INPACJIM, I I.EQ.O)  GO  TO  II 

10  CONTINUE" 

NAD JNP ( M )  =  MX  ADJP 
GO  TO  12 

11  NADJNFrPT=“J-l  --- 

12  CONTINUE 
RETURN 

END 


OVERLAY  I MOHAN*  3»  0  ) 

PROGRAM  LNK1C 

COMMON  MAXNP, MX CL S, MX AOJ P , MXZQNE, MXNPB ,NZONE S , MXPE LB , NUMNP * 

1  NSJMEL,  1ST  REStNUMPEL,  NUMELP,PER  IOO,NMKCLS»FACTOR,ALAMB» 

2  '"KrSPEYKRJIN/IPR  INT,  NUMST,  MXSTRT,  I  EL  A  STI707IPLA  ST  (20)  , 

5  WGT  (20  )  »  NST  ART  (79), Ell  5,  20),  IPELT®  ,  INT, NPRCDS,  IMPS  X 

DI MENS  TCN  NPADJI1600, 8), NADJNPI  1600 ) ,NADJEL 1 1 6C0 > ,NP TN ( 1 600)  , 
1NPTPI1600) » I  GPI  80 ),S(  1600  ) , NPLO Wl 80 ) ,NPHIGH< 8C ) »NP0LT<80)  , 

2  NUMCPI  80  ) 


C 

C 

C 


ECUI  VALENCE  I  NAOJELI  l ),  NPLOW  )»  (  NADJELl  81),NPHIGH)  ,  (NAO  JE  L  <  1 61 )  , 
INPOUT)  ,  INACJCLI241  ),NUMCP) 

MCHAN=5HM0HAN 

REWIND  8 

RE  AD  18  >  'NADJNPI  I  ),  NACJ  EL  I  I  ) ,  I  NP  ADJ  l  I ,  J  ) ,  J  =  1 ,  M  XAD  JP )  ,  I  =1  , NUMNP) 
REWIND  8 

MAXB0=0 

DC  S  “  I  =T » MJMNP  -  '  ' 

NUM=  NADJNPI  I  ) 

DO  5  J=  1 »  NUM 


.  ^  ^.^wn.n 


icuucj 


a  ti . 
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NP=NPADJ( I,J ) 

N8AN=IA8S(NP-I  ) 

IF (NBAN.LE.MAXBD)  GO  TO  6 
MAXBD=WAN  ““ 

6  CONTINUE 
C 

CALI.  P ATH! MAX NP, NUMNP, NUM$T,N START, NPTN,NP TP, MXADJP, NAD JNP, NPADJ, 
1 IGP,  NJMGP) 

C 

WRITE(6,8T~NDMGP  ' 

d  FORMAT!  1HI.23H  NO.  OF  BASIC  SEGMEN TS  =  , I  5/ / 

123 H  PARTITION  NEW  NODE  NO.//) 

WRITE  (6, 9)  (  If  IGPt  I  )»  I=1,NUMGP  > 

9  FORMAT (2X, 15, IOX, 15) 

C 

WRITE  (5, 101  MAX  80 

10  FORMAT  (  1H1/26H  ORIGINAL  HALF  BAND  WIDTH",  I  5) 

C 

MAXBD=0 

DO  11  1=1,  NU MNP 
NPNEW=  NPT  P( l ) 

NUM=  NAOJNTMt  I 
DO  11  J=  1  *  IVJ  M 
MP=  NPAO J !  I ,J  > 

MPNEW=  NPT  P( MP ) 

NBAN=  I  ABS  (  NPNEW-MPNEW  ) 

IF (NBAN.LE.MAXBD)  GO  TO  11 
MAXBD=  NBAN 

11  CCNTINJE 
C 

WR IT  E ( 6 , 12 )  MAX  BD 

12  FC  RMAT  ( 26H  NEW  HALF  BAND  WIDTH  =  ,I5) 

C 

CALL  MINI  (MAXNP, NUMNP, NADJNP, MXADJP, NPADJ, NPTN,NP  TP,  S.MAXBD) 

C 

IF (MAXBC.LT. MXNPB)  GO  TO  14 
WR IT  E ( 6 , 13  ) 

13  FORMAT  !//20H  8AN0WICTH  TOO  LARGE) 

CALL  EXIT 

C 

14  DO  15  1=1,  N'JMNP 
KN=  NADJNP!  I ) 

OC  15  J=1,KN 
KT  = NPAD J ( I,J ) 

15  NPADJ! l,J)«NPTP(KT) 

C 

DO  l  1=1, NUMNP 
KP=NPT  Nl  I ) 

1  WR  IT  E  (  8  )  I,NADJNP(KP),NADJEL(KP),(NPADJ(KP,J),J  =  1,MXADJP) 

REWIND  8 

DO  2  1=1, NUMNP 

2  RE  AT?  (81  ITN'AD  JN  P"(  I ),  NADJ  EL  (  I  M  NPADJ!  I ,  J  ) ,  J=11MXAD  JP) 

C 

IFHIPRINT  .NE.1).ANC.(  IPRINT.NE.99)  )  GO  TO  19 
WR IT  E ( 6 , 16 ) 

16  FORMAT  (  IH1,3BHT  ABLE  OF  NEW  ADJACENT  ■‘‘ODE  POINTS// 

14X,4HNEW  ,  3X  ,  4H0L  D  ,6X,6HN0.  0F,4X,6HN0.  OF,27X, 

220 HADJ+ CENT  NODE  PO INTS/4X, 4HN0DE, 3X, 4HN0DE , 5X , 9HAD J.  PTS. , 
3iX,9HA0J.  ELS  .,5X,  IHI,9X,  1H2,  9X,  1H3, 

4  9X,1H4,9X,1H5,9X,  IH9,9X,  1HT,  9X,  1H8//) 


ooooonoo  o  o  r>  o 


A-22 


DC  17  I=TYNJMNP  ' 

KP=  NPT  N { I ) 

17  WR I T  E ( 6  *  18  )  I  ,KP,NADJNP1  I),NADJEL(  I)f(NPADJ(I,  J)  cJ=l  ,MXADJP) 

18  FDRHATT7T87ZTTD"t"8Tnr)  .  ' 

GC  TO  26 

u 

19  IFII PRINT. EQ.'O  )  GO  TO  26 
WR ITE (6 ,20  ) 

20  FORMAT ( 1H1,21H  NEW  NUMBERING  SCHEME// ) 

DC  21  T=T7NTMNP*  TO  . 

IF  ( ( NUMNP-I ) .LT .10)  IOUM=NUMNP 
I F { { NJ  MNP- 1 ) • GE • 10 )  IDJM=I+9 

23  WR  IT  E 1 6  *24 )  IJ,J=I,IOUM) 

24  FORMAT (/20H  ORIGINAL  NODES  =,1018) 

21  WR  IT E ( 6 , 25  )  I NPT  P( J  ), J=  l,  IDUM  ) 

25  FORMAT  r'ZUTr  NEW  NDDFS  =,1018) 

26  CONTINUE 
C 

CALL  S  TZEC  MX CLS , NDMCL S, NPLOW, NPH IGH, NPO  UT»NUMC  P ,NUMNP  ,  MXAD  JP  , 
1 MXNPB, NADJNP, NPADJ, MAXNP  ) 

C 

WR  IT ETRTTKJFrX5 ,  (RPLDWT'TT*  NPHIGnrTTTVPDL'Tn  )  ,NTLMCP  (I  )  , 

1 1=  1 ,  NU  MCLS  ) 

WRITEI8  )  (NPT  MI),  NPT  P(  I  ),  I=l,NUMNP  ) 

REWIND  8 


RETURN 

END 


SUBROUT INE  P AT H( MAXNP , NUMNP, NUM S T, N STAR T,NP TN , NP TP , MXAD JP , 
l  NA D  JNP ,"NPAUJ»  TGP,  NJMGP  ) 

DI MENS ICN  NST  ART ( NJMST ),  NPTN(  MAXNP ) ,  NP  TP  t  MAXNP ) ,NAD JNP { MA XNP)  , 
1  NPADJ (MAXNP,  MX ADJP ) , IGP(  I  } 

NUMST  =  NO.  OF  START  NODES 

NST  A  RT=  STAKTTNG  NOTTTTJMBER  S  '  ~  “ 

NPTN  =  OLD  NODE  NOS.  IN  NEW  ORDER 
NPT P  =  NEW  NODE  NOS.  IN  OLD  ORDER 
IGP  =  LAST  NODE  IN  PARTITION 
NUMGP  =  NO.  OF  PARTITIONS 

K  CONTACT  ' 

I  N=  1 

DC  1  1=1,  NUMNP 
NPTN ( I ) =0 

1  NPT  P ( I ) =0 
C 

DC  2  T=T*"NUM5T 
NP=NST  ART ( I) 

NPT  P( NP)= IN 
KCUNT  =  KCJNT  + 1 

2  NPTN(  KOUNT  )=  NP 
C 

I G  P  C 1  N)  =  KOONT 


C 


4  DO  7  1=1, NUMNP 


ooo  ooo  ooooooo  o  ooo 


^7  ?w  ^  1  *\V^ 1 W  ,v*  to^PSTFJ^IPrv^ 
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IF  (NPfT  P(i)oNE.IN)  GO  TO  7 

NUM=  NADJNPI  l  )  1  ; 

00  3  J=.1,NUM.  , 

np=npa'ojtt;jt  " 

I F 1 NPT  P I NP) . NE.b )  GO  TO  3  , 

:  NPTPINP)= IN+l 
KOUNT  =  KOJ  NT  +  1 
NPTNI KOUNT  )=NP 
IF I K  0  J  NT  • EQ. NJMNP )  GO  TO  5 
3  CONTINUE  1 

7  CONTINUE 
C 

I  N=  I  N+ 1 

.  I G P  C  I  N  J  =  KOUNT 
GO  TO  4 

c  -  -  ,  •  ■ 

5  IGP( I  N+ 1 )  =  K0J NT 

NU  MGP=  I  N+ 1  !  : 

C 

DO  b  1=1* NUKNP 
NPOLD-NPTNU) 

6  n*tp;nTCG3>T 

C  ■ 

RETURN  l 

i  END  ! 
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SUBROUT  INE  MINI!  >;  AX NUMNP, N AOJNP, M XAD JP ,NPAD J , NP TN , NPTP , S , 

1MAXBOP) 

DI MENS  ION  NADJNPI MAXNP ) , NPADJI MAXNP , MXADJP ) ,NP  TN(MAXNP) , 

1NPTPLMAXNP)  «  S  (MAXNP  )  . 

!  S  =VECTOR  OF  WEIGHTING  FACTORS 

MAXBDP=  MAX  •  PREVIOUS  BANDWIDTH  i 
MAXBD  =  MAX .  BANDW IDT  H 

COMPUTE  WEIGHTING  FACTORS  FORI  OLD  ORDER 

3  DO  l  l  ■-  I »  NU N N P 
S(n  =  FLCAT(I  ) 

NPQLD=  NPTNI  I  ) 

NUM=  NADJNPI  NP  OLD) 

DC  2  J=1»NUM 
NA0J=NP'ADJ(NP0LD,  J  ) 

NPNEW=NPT  PINADJ  ) 

2  Sm=S(I)+FLOAT(NPNEW.) 

L  S(I)=S<  I  J/fLOAT  I  NUM*l ) 

SORT  S  VECTOR  AND  REORDER  NUDES 

CALL  SORT  IIS,  NPTN,  MAXNP,  NUMNP,  I,  1*1,  l) 

C-MPUTE  BANDWIDTH  OF  NEW  ORDER 

MAXBD=0 

00  'I<TT=T;  F5TMWP  ,  '  "" 

NPOLOsNPTNI  I  ) 

NUM=  NADJNPI  NPOLD) 

I 

'  _ _ _  J 


ooooooooooo  o  o  o  n 


6}  A-2h 

DC  10  J= I *  NU  M 
NADJ=  NPAOJ  ( NPOL  D,  J  ) 

00  11  K=  1 ,  NU  MNP 

KK=K  - 

IF (NADJ.EQ.NPTNt  K  ) )  GO  TO  15 

11  CONTINUE 

WRIT ET6TTOO )  I, NPOL  D,  (NPTN(L  ),L  =  1,NUMNP  J 
100  FORMAT (1H1,13HERR0R  IN  M  IN  I//  10X , 2 1  10//I 10X , l C II 0)) 

CALL  EXIT 

15  NPNEW=KK - -  ‘  '  ‘ 

N8AN=I  ABSINPNEW-I  ) 

IF  (MAXBO.LT.NBAN)  MAX  BD=NBAN 
10  CONTINJE 
14  CONTINUE 
C 

WR  ITE(5T6T  "R1AXBD 

6  FORMAT  ( 26H  NEW  F«LF  BAND  WIDTH  =  ,I5) 

C 

IF (MAXBCP.LE.MAXBC)  GO  TO  12 
C 

DO  5  I=1,NUMNP 
NP  0LT3=~NPT  NT  l ) 

5  NPTPl NPOLOI= I 
MAXBDP=  MAX  BD 
GO  TO  3 
C 

12  DO  16  1  =  l  *  NU  MNP 
NPNFW=Tg  PT  PTTT ‘  ‘ 

16  NPTMNPNEW  )  =  I 
RETURN 

END 


SUBROUTINE  SORTK  I  ARRAY  ,  J  ARRAY,  MXRCDS,  NRECD  S, 

1 IWRDS  ,  JWRDS,  IKEY,  ISWT  ) 

DIMENSION  IARRAY(MXRCCS,  IWRDS  ) ,  J  ARP.  A  Y  <  MXRCDS,  JWRD  S) 
I  A~RRAY=  ARRAY  TO  BE  p  “'QT  ED 

JARRAY=  ASSOC  I  Af  ED  ■  '-AT  MAY  BE  SORTED  AS  IARRAY 

MXRCDS  =  MAX .  NO.  0.  :•*.  '  IN  ARRAYS 

NRECDS  =  NO.  OF  RECG,  '  SORTED 

IWRDS  =  WORCS  PER  RECu.'  IARRAY 

JWRDS  =  WORCS  PER  RECORD  FOR  JARRAY 
IKEY’  =TOUATION  IN  TARTTAY  RECORD  OF  SORT  WORD 
ISWT  =0  ONLY  SORT  IARRAY 
=  1  ALSU  SORT  JARRAY 

LOGICAL  CHECK 
M=  NRECDS  -I 
C 

1  CHECK=. FALSE. 

C 

DO  6  1=1,2 
C 

OC  2  J=  I »  M,  2 

C  . 

IF ( I  ARRAY { J,  IKEYI.LE.  IARRAY  (  J  +1,  IKEY  )  I  GO  TO  2 
C 


o  o  o 


w  ”  -**?•  - 
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DC  3  K= 1 » IWRDS 

ITEMP-  1  ARRAU  J,K) 

l  ARRAY  (  J,K)=  l  ARRAY!  J  +  lt  K  ) 

3  I  ARRAY ( J+1 »K  f=  IT  EMP 
C 

IFIISWT.EQ.O )  GO  TO  5 
DC  4  K=1,JW«C$ 
jTEMP=  J  ARRAY  <  JfK  ) 

JARRAY  (  J  *  K  )  =  J  ARRAY  (  J  +  i»  K  ) 

4  JARRAY  rj+r»K)=Jt  fMP 
C 

5  CHECK=  .T  RJ  E. 

C 

2  CONTINUE 
fa  CONTINUE 

C  . 

I F  ( CHECK )  GO  TO  l 

RETURN 

END 


SUBROUT INE  S I Z E( MXCLS , NUMCL S, NPLOM, NPH I GH, NPOL T , NUMC P , NUMNP  , 
l  MXADJP,  MXNPB,  NADJNP,  NPADJ  *MAXNP  ) 

C 

DIMENSION  NPLOrflMXCLS  ) ,  NP  H  CH(  MXCL  S  ) ,  NPOUT  (  MXC  LS)  ,NUMC P I MXC LS) 
C 

DI MENS  ION  NADJNPl MAXNP ), NPADJ ( MAXNP , MXADJP ) 

C 

DC  I  1=1, MXCLS 
NPLOWI I )=0 
NPHIGHI  I  ) =0 
NPOUT  (  I  )=0 
L  NU  MCP  (  I  )  =0 
C 

I C  OU  NT  =  I 
NPOUT  ( l  )=0 
NPLOWI 1  )  =  i 
C 

MP=  l 
C 

8  mplrg=o 

MPSML=  NUMNP 
NPLRG=0 
NPSML=  NUMNP 
C 

7  NUM=  NADJNPINP  ) 

LPLRG=0 
LPSML= NUMNP 
DO  2  J=l,NUM 
NPNU  M=  NP AOJ I  NP,  J  ) 

IF (NPNUM.GT.NPLRG)  nplrg=npnum 

IF INPNUM.GT.LPLRG)  LPLRG=NPNUM 
IF  (NPNUM.LT. NPSMU  NP$ML=NPNUM 
IF  (NPNUM.LT.LPSML  )  LPSML=NPNUM 
l  CONTINUE 
C 

IF  I  (  LPLTLG'-LPSML  +  I  )  .LE.MxNPB  )  GO  TO  3 
C 

idummy=lplrg-lpsml+i 


n  o  o  o  o  o  o 
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WR  1 T E  (6  » 10  3  J  NP»  I  DUMMY 

103  FORMAT ( 1H1,13HERR0R  IN  SIZE/29H  BAND  WIDTH  TOO  LARGE  AT  NODE, 
115/1 2H  BANC  ^ IDT H= , 15) 

C 

3  IF  UNPLRG-NPSML+l  ).GT  .MXNPB)  GD  TO  A 

C  . 

IF (MPLRG.LT. NPLRG)  MPLRG=NPLR  G 
IF  (MPSML.GT.NPSML  )  MPSML  =NPSMl 

rF  (NPrGr."N(/WWP'!'“GU'TO  "5 . . . . . . 

NP=NP+1 
GO  TO  7 

c 

5  NPOUT  (  ICOUNT  )  =  MPSML-1 
NUMCPI  ICO'JNT  )  =  MPLRG 
NPHIGHIICOUNT )'*NP 

6  NIJMCLS=  ICOUNT 
C 

DC  9  I  * l » NUMCLS 

IF (NPOUT ( I ).GF.NPLOW(  I )  )  NPOUTI  I  )-NPLOWtI )- 1 

IF (NUMCP( I).LT .NPHIGHI  I ))  NUNCP(  l)=NPHIGH( I ) _ 

9  CONTINUE 
C 

RETURN 

C 

4  NPOUT  (  ICOUNT  )  =  MPSML-l 
NUMCP(  ICOUNT  )  =  MPLRG 
NPHI GH (TCCUNT  )  =  NP-1 
ICOUNT*  ICOUNT  +1 

I F { I COU NT .  IE • MX  CLS  )  GO  TO  101 
WRITF(6,I02)  NP,NPHIGM  ICOUNT  ),NUMNP,  ICOUNT 
102  FORMAT  ( 1HI  .25HTOO  MANY  CLUSTERS  IN  SIZE// 

1 10  X  ,4  I  10  ) 

CALL  EXIT 
C 

101  NP LOW ( ICOUNT  »=NPHIGF(  ICOUNT- l  )*1 
GO  TO  8 


END 


OVERLAY (PCHAN, 4,0  J 

PROGRAM  LNK10 

COMMON  MAXNP, MXCLS , MX ADJ P, MXZONE, MXNPB , NZONE S, MXPE LB ,NUMNP, 

1  NUMEL,  ISIRES,NUMPEL,NUMELP,PEUOO,NMKCLS, FACTOR, ALAMB, 

2  KT  APE,  KRJN,  I  PR  INT,  NUMST,  MXSTRT,  I  El.  A  STI 20  ,  IPLA  ST  (20)  , 

3  WGT  (20),NST  ART(  79),  Eli  5,  20),  IP  EL  TP  ,  IN  T  »NPRCD  S  ,  IMPBX 
C 

DIMENSION  NPT  P(  1600  ),NPTN(  1600) 

01  MENS  ION  NPLOW(  80),NPHIGH  80),  NPOUTI  80  ) ,NUMCP  (  80)  ,NELCLS(80) 
1 , NMPCLS (80 ) 

DI  MENS  ION  TMP (  15000  ),NTMP(  15000),  SS(  10),HS(  10) 

C 

EQUIVALENCE  ( TMP, NTMP ) 

M0HAN=5HM0HAN 
REWIND  1 
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REWIND  3 
REWIND  8 
DC  I  I  =  1,N'JMNP 

1  RE  AO  ( 8  )  1 1  NT  MP(  I  iYNTMPI  I  j*  (NTMP(  J  )»  J  =  1*MXADJP  ) 

RE  AD  (8  )  NUMCLS,  (NPLOWI  1),NPHIGH(  I),  NPOUTU)  ,NUMCP  (I  )  , 

1 1=  1 ,  NJ  MClS  ) 

RE  AD  (8  )  (NPTNt  I  ),NPTP(  I  ),  1  =  1,  NUMNP  ) 

REWIND  8 

DC  27  NN=  l , NJ  MEL 

READUJ  N,  IZ  ,  KASt,  I,  J,K,L,NC 

1=  NPT  P (  I) 

J=  NPT  P  (  J  ) 

K=NPTP(K) 

IF(L.EQ.O)  GO  TO  29 
L=  NPT  P  (  L ) 

KE Y=  MI  NO  (  I »J , K  *  L  ) 

GO  TO  27 

29  KEY=MI  NO(I  ,J,  K> 

27  WR IT F ( 3  )  KEY,N,  IZ.KASE*  I»J,K.L,NC 
MX RCDS  =  15000 / 9 
NW  RDS  =  9 

CALL  GS  CRT  (  NT  M.P,  NUMEL  »  NWRCS,  l,MXRCDSt3»  1,4,12) 

REWIND  14 

REWIND  3 

DO  30  N=  l »  NUMNP 

RE  AD  (1 4  )  I,R,  D,  IT.TH 

NP=  NPT  P (  I  ) 

30  WR  IT  E  (  3  )  NP,  R,D,  IT,  T  H 
MX  RCDS  =  15000/5 

NW  RDS  =  5 

CALL  GS  CRT  ( NT  MP,  N'JMNP,  NWRCS,  l.MXRCDS,  3,  4, 1C,  12  ) 

DO  31  1=1, NUMNP 

31  RE  AD  ( 4  )  N,  R,  U,  IT  ,TH 
RE  AD  ( 14  )  NZCNES 
WRITE (4)  NZONES 

DC  32  NN-1, NZONES 

READ!  14)  It'lE,  IP,W,(  EI<  J  ),J  =  l,  5) 

WRIT  6  (4)  I,  IE,  IP»W,(  EI(J)»J=1,  5) 

IF(IP.EG.O)  GO  TO  32 
IF (I P.GT.l )  GO  TO  33 

READ!  14)  N,  ( S 5  (  J  ) ,  J  =  1 ,  N  J,  (  HS(  J  ),J  =  i,N) 

WRIT  E  (  4  )  N,  (SSIJ),J  =  1»N),  (  HSIJ  ),J=1»N  ) 

GC  TO  22 

33  IFUP.GT.2)  GO  TO  48 
READ!  14)  A,  B,  C 
WRITEI4)  A,Bv.C 

GO  TO  32 

48  IFiIP.GT.3)  GO  TO  34 

REA0(14)A,8,  :,D,  E,  F,MYIELT,  IRES  ID,  J  TEN  SN 
WR  ITE  (4  )  A,  8»:C»  D,  E,  F,  MY  I  EL  C,  IR ES  ID,  J  TEN  SM 
GO  TO  32 

34  WR  I T  t  ( 6 , 35  )‘  IP,N 

35  FORHAT  ( IHl 1 H  ERROR  ')  !.  1C,  IPL  A  ST=  ,  I  5,  9H  FOR  ZONE, 15) 
CALL  EXIT 

32  CONTINUE 

DC  40  1  =  1 »  MX  CLS 


65 


A-28 


4 0  NELCLS m=o 
NUMELP=0 

IF ( NUMPEL. EO .0 )  GO  TO  39  . 

REWIND  Y  ~  ‘  '  i 

DO  3b  NN= 1 iMJHPEL 

RE AO ( 14  )  N,IZ  ,  IP,  I,  J,K,L,NC,  IT  I*  ITJ,  ITK  ,  l  TL  ,  TH  I  ,  TH  J,  THK  ,  THL  » 
1RI»RJ»RK»RL»ZI»ZJ»ZK»ZL  <  < 

1=  NPT P(  I ) 

J=  NPT  P  (  J ) 

K=  NPT  P  ( K  T 

I F  ( L. 6U.3  )  GO  TO  37  ' 

L=NPTP(U 

37  DC  41  JJ=1  , N'JMCLS  , 

IF  ( (  I  .  GE.NPLUWI  JJ  )  5  *AND.(  l.LE.NPhlGHI  JJ  ) )  )  GO  70  42 
IFK  J.GE.NPLOWUJ  )).AND.(  J  »L  E.NP  HIGH!  J  J  ) )  *,  GO  70  42 
rF((K.GE.NPLOW(JJ  ))  .TTND.LK.LE.NPHI&Hf  JJ  )) )  GO  ,  70  42 
IF  t  (  L  •  GE.  NPLOW I J  J  )  >  .AND.!  L  «L  6  .NP  h  IGHI  J  J  )  J  )  GO  70  42 
GO  TO  41 

42  WR  ITE  {  3 1  JJ,N,  IZ,  IP,  I,  J,K,L,\IC,  IT  I,  I TJ  ,  ITK  ,  I  TL  ,  TH  I  ,  TH  J ,  THK  , 

1THL,RI ,RJ,RK, RL,4  I,ZJ,ZK,ZL  , 

NUMELP=  NU  MEL  P  +  1 
NELCLS  I  JJF=  NELCLS  f  J  J  )  ♦  l 

41  CONTINUE 
36  CONTINUE 

REWIND  3  i 

REWIND  14 
KXRCDS= 15000/ 25 
NWRDS  =  25  ~  ’ 

CALL  GSORT(NTMP,NUMELP,NWRDS,  1,  MXRCDS,  3»14,  1C,  12) 

REWIND  14 

DO  38  NN=  1  ,NJMELP' 

READ!  14  )  J  J,  N»  IZ,  IP,  I,j.,K,L,MC*  ITI,  ITJ,  I TK  *  I  TL  *, 

1THI  ,THJfTHK,THL,Ri,RJ,RK,RL,Z  I , Z J , ZK , ZL 

38  WRITIT4T" Jj,NnZ,'TP,  l,j,K,L,NC,  ITI,  ITJ,  ITK/lTL, 
1THI,THJ,THK,THL,RI,RJ,RK,  RL  ,  Z  I,  l  J ,  ZK  ,  ZL 

39  REWIND  14  ■ 

REWIND  4  •  • 

DC  47  I C= l » NJ MCLS 
KC=0 

IF  (  rNELCLSrrO/M'XPELB  )*MXPELB  .LT  .NELCL  ${  IC  ))  KC  =  1 
IF(NELCLS(  IC  )  .  EQ  .0  )  KC=0 
NNPCLS  < IC)  =  NELCLS( I C ) /MX  PEL B+KC 
47  CONTINUE 

DC  43  l=  i  ,  N'J MNP 

43  RFADI8)  I ,  NT  MP(  I)  ,NTMPt  I) ,  I  NTMP  {  J  ),  J  =  1  ,MXAD  JP  ) 

WRlfEfSr  NUMCLS,  CNPLOWT  I  ),NPHIGH(  I),NPOUT(  I  i , N UMC PH)  »'N£ LC L S (I  )  , 
I  NM  PCLS  I  II,  1=  1 ,  NJMCLS  ) 

WRITE  (8  )  (NPTNI  l  ),NPTP(  l  ),  l=i,NUMNP  ) 

REWIND  8  i 

WRITE ( 6 ,44 )  NJMCLS 

44  FORMAT (1H1, 10  HCLJST  ERING//10X,  16HN0 •  OF  CL U STE R S* , I  5 / / 
110X,5HNPL0VJ,  5X,  6HNPHIGH,  4X ,  5HNP0UT,  5X,  5HMUMCP,  5X, 6HNELCL S»5 X  , 
26HNMPCLS//) 

WRITE  (6, 45)  I  NPLOWt  I),NPHIGHI  I  ),NPDUT(  I  ),NUMCP  II  ), NELCLS  (I  )  , 
l  NMPCLS  (  I  ) ,  I-  1 ,  NJMCLS  ) 

45  FORMAT (5X, 6. 10) 

WRIT  E (6 ,46  J  NJMFLP 

46  FORMAT  J  //  35H  NO.  OF  NONLINEAR  ELEMENTS  ON  TAPE=,I5) 


RETURN 

END 


SUBROUTINE  GSORH  i  ARRAY , NRCDS, NWRDS , NKE Y ,M XRCD S , 

I  INTAPE,  IOUTAP,  INT  1,  INT2) 

C 

DIMENSION'  IARRAY!  MXRCCS, NWRDS  ) 

C  ,  '  .  ■ 

C  I  ARRAY=BjEfEk"Sr'ORAGE  "REGION 

C  NRCDS  = NO.  OF  RECORDS  IN  ARRAY  TO  BE  SORTED 

C  ;  NWRDS  =  NO*  OF  WORC5  PER  RECORD 

C  ’  NKEY  =  IOC  AT  I  ON  OF  WORD  10  BE  SORTED  ON 

C  MX  RCDS  =  MAX  .  SUE  OF  BUFFER  REGION  AVMLABLE  (INPUT) 

C  I  NT  APE=  I NPUT  TAPE  WITH  ORIGINAL  DATA 

c  i  I  out  ap=  cut  p.j  t  tape  with  reordered  data 

C  INT  =  INTERMEDIATE  T  APES 

c 

REWIND  INTAPE 
REWIND  IOUTAP 
REWIND  INTI 
REWIND  I  NT  2 
C 

IF (NRCDS. GT.MXRCOS )  GO  TO  I 

C 

c***«  INTERNAL  SCRT  ONLY  REQUIRED' 

C 

DC  2  1=1, NRCDS 

2  RE  AD  I  I  NT  APE )  (  I  ARRAY!  I  *  J  ) »  J  =  l*  NWRDS  ) 

CALL  S  ORT  2  ( I  ARRAY  ,  I  ARRAY  ,  MX  RCDS,  NRCDS*  N  WRD  S,NWRD  S,NK 
DO  3  1=1, NRCDS 

3  Wjl  IT  E  (  I  CUT  A°  )  (  IARRAY(  UJ  ),J  =  I, NWRDS) 

REWIND  INTAPE 

REWIND  IOUTAP 
RETURN 
C 

C****  TAPE  SORT  ROJT  INE  REQUIREC 
C 

i  I X  RC  DS  =  (  MX  RC  DS  /  4  » 

CALL  TSCRT (I  ARRAY, NRCDS,  IXKCDS, NWRD S,NKEY , 

1  I  NT  APE,  IOUTAP,  INT  l,  INT2) 

RETURN 

.  END  ,  .  1 

C 
C 

C  .  ' 

SUBROUTINE  S0RT2(  I ARR  AY  *  J  ARRAY,  MXRC  DS,  NRECD  S,  . 

I  iWROb,  JWRDS,  I  KEY,  ISWT  }. 

c  1  . 

DIMENSION  I  ARRAY  (  MXRCCS\,IWRDS  ),  JARRAYI  MXRCDS,  JWRDS) 

C  \ 

C  IARRAY=AR  ?v  to  be  SORTED 

C  JARRAY=  ASS  „  I  AT  ED  ARRAY  THAT  MAY  BF  SORTED  AS  IARRAY 

C  MXRCDS=  MA/  NO.  OF  RE  COR  ICS  IN  ARRAYS 

C  NPECOS  =  NO.  OF  RECORDS  TC’gE  SORTED 

C  IWRDS  = WORCS  PER  RECORD  FOR  IARRAY 

C  JWRDS  =  WORDS  PER  RECORD  FOR  JARRAY 

C  IKEY  =  LCC AT  I  ON  IN  IARRAY  RECORD  OF  SORT  WORD 

C  ISWT  =0  ONLY  SORT  (ARRAY 

C  =1  ALSU  SORT  JARRAY 


ooo  o  o  ooo 
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LOGICAL  CHFCK 
M=  NRECDS-l 
C  ' 

1  CHECK=. FALSE. 

C 

00  6  1=172  * 

C 

DC  2  J= I,M,2 

IF  (I  ARRAY!  J,  IKEY  )  .LE.  IARRAY!  J  +  l,  IKEY  )  )  GO  TO  2 
C 

DC  3  K=  1 » IWRDS 
ITEMP=IARRAY!J,K) 

I  ARRAY! J,K}  = ! ARRAY! J+  1,  K  ) 

3  IARRAYT'J+l,K)=  ITEMP 
C 

IFIISWT.EC.O)  GO  TO  5 
DO  4  K= 1 » JWRD5 
JTEMP=  J ARRAY  (  J » K  ) 

JARRAY  {  J,  K  )=  J  ARRAY (  J  +  1»  K  ) 

4  JARRAYT7n:7Tn  =  jr  EMP 
C 

5  CHECK=.TRJE. 

C  . 

2  CONTINUE 

6  CCNTINUE_ 

IF {CHECK)  GO  TO  I 

RETURN 

END 


SUBROUTINE  TSORT!  I ARR AY , NRCDS,  IXRCDS,NWRDS,NKE Y, 

II  NT  APE,  I0JTAP,  INT  l,  INT2) 

DI  MENS  ION  I  ARRAY!  IXRCCS,  NWRDS,  4  ), CHECK!  2 )  »  I  SWT  ( 2  )  , !  OU T  !2  )  ,  JMjP  !2  ) 
LOGICAL 'CHECK 

*♦**  READ  INTAPEtSORT  GROUPS,  AND  SPLIT  ONTO  INTI  AND  INT2 

I RCDS=0 
ISWC=0 

JNUM!  rT=C  ”  ‘  ' 

JNUM ( 2  )=0 
KTAPE=  INTI 

3  I F  { {  I RCD5  +  IX  RCDS  )  «L  E.NRCDS  )  KN=IXRC0S 

IF  <  (  IRCDS  +  IXRCDS  )  .GT.NRCDS  )  KN=NRCDS- IRCDS 
DO  l  I  =  1 »  KN 

l  RF  AD  (I  NT  APE)  !  I  ARRAY!  ?,  J,  1  ),  J  =  I,  NWRDS) 

IRCDS= IRCOS+KN 

CALL  S0RT2!  I  ARRAY,  I  ARRAY,  IXRCDS,  KN,  NWRD  S,N  WRD  S  ,NKE  Y ,  0 ) 

WRIT  E  !  KT  APE)  KN,  <  !  I  ARRAY !  I,J,  1 ) ,  J  =1,  NWRDS )  ,  I  =1  ,KN ) 

IF  { ISWC.EQ.O )  GO  TU  2 
i S  WC= 0 

JNUM  (27=‘3M3MT  2  T+I 
KT  APt=  INTI 
GO  TO  4 
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2  IS WC= 1 

JNUM i l )  =  JNUM ( 11+1 

KT  APE=  I  NT  2  . .  - 

4  IF  (IRCDS'iLT.NRCDS  )  GO  TO  3 

£*♦**  SORT  RECORC  CLUSTERS  ON  INTI  AND  IMT2 
C 

REWIND  INTAPE 
REWlNO  I OUT AP 
rewind  Inti 
REWIND  I  NT  2 
DC  5  1=1.2 

5  I S  WT 111  =  0 
KP1= INTI 

KP2- 1  NT  APE  _  ..  .  . 

LP1=  INT2 
LP2=  IOUTAP 
I  COUNT  =  2 
C 
C 

900  1=1  .  ..... 

C 

CHECK! I )=  *  FALS  E. 

CHECK(2I=. FALSE. 

902  IF  (I  COUNT.  ECU  l )  GO  TO  800 
I C  OU  NT  =  I 
GC  TO  901 
800  l  C  OU  NT  =  2 
C 

901  OC  LOO  NC= 1 1  2 
C 

IF 1 1  COUNT .EQ.2 >  GO  10  6 
C 

IFINC.EC.2)  GO  TO  7 
KT1=KP1 
KT2=KP2 
GO  TO  8 
C 

7  KT  1  -  L  P 1 
KT2-LP2 
GO  TO  8 

C 

6  IFINC.EC.2)  GO  TO  9 
KT  1=  KP2 
KT2=KPl 
GC  TO  8 
C 

9  KT 1=  LP2 
KT2=LP1 

8  IF  ( ISWT  CNCT.  EO.  1 )  GO  TO  100 
£***«  READ  FIRST  TWO  SORTED  CLUSTERS 


REAOIKTU  KN 1 »  ((  I ARR AY ( K  »L  »  1I»L  =  l»N  WRDS  )»Ksl*KNl) 
WRITE(KT2)  KNl!?UARRAY(K,L.  1).L  =  UNWRDS),K  =  1»KN1 ) 
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READ(KTl)  KNl » ( (  I  ARRAY  ( K  ,L  *  L  ) ,  l  =  i,M  W*DS  )  ,K  =  i , KNl) 
200  J=J+1 

READUT  1)  KM?,  ( (  l ARRAY! K , L , 2 ) , L  =  l, N W3D $  ) ,K  =  1 , KN2 ) 

C  -  -  -  -  . 

C#***  SORT  r-.C  CLUSTERS 
C 

20L  K=l 
L=  1 
M=1 

M2  =  KN1  +  KN2 
C 

207  lFUARRAY(K,NKbY,  1 )  .L E . I  ARRAY ( L , NKE Y , 2  )  )  GO  TO  202 
CHECK!  NO  =  .T  RJE. 

IF<M.GT. IXRCDS  )  GO  TO  203 
M1  =  M 

IS=3  “  "  . . 

GC  TO  204 

203  Ml  =  M-I  X  RCOS 
IS=4 

204  DO  205  N=i,NWR0S 

205  I  ARRAY < Ml, N,  IS )= I  ARRAY ( l ,  N ,  2  ) 

M=  M+’l  . .  ‘  “ 

IFtM.GT.M2)  GO  TO  300 
L=  L+l 

IF(L.LE.KN2)  GO  TO  207 

DO  203  KM=  K,  KN 1 

IF (M.GT • IXRCDS )  GO  TO  209 

Ml  ~  tM . 

IS  =  3 

GC  TO  210 

209  Ml  =  M-I X  RCDS 
I$=4 

210  DO  211  N=  1 »  Nrf  RDS 

21 1  I  ARRAY  (  Mr*TC?  IS  )  =  I  ARRAY! KM, N,  i) 

208  M=M+l 

GC  TO  300 
C 

202  IF  (M.GT.  IXRCDS  )  GO  TO  212 
M1  =  M 
IS  =  3 

GO  TO  213 

212  Ml  =  M— I XRCDS 
IS=4 

213  DO  214  N=l,NWRCS 

214  lARRAf (Ml,N,  I S ) = I  ARRAY ( K , N ,  1) 

M=M+1 

I F  (  M.GT. M2)  GO  TO  300 
K=  K+ 1 

IF (K.LE.KNl)  GO  TO  207 
DO  215  LM=  L,  KN2 
IFtM.GT. IXRCDS)  GO  TO  216 

MI  =~M -  -  •' 

IS =3 

GC  TO  217 

216  Ml = M-I XRCDS 
I  S=4 

217  DO  213  N=  1 ,  Nfi  RDS 

218  I  ARRAY  (  MT»Tv',  15  )  = I  ARRAY!  LM,  N,  2 ) 

215  M=  M+ 1 

GO  TO  300 


ono 


C***«  WRITE 
C 


TWO  MERGED  ARRAYS  ONTO  2ND  TAPE 


300  WRITE  TKT2T  KNl,  (  ( 
WRITEIKT2)  KN2,  I  I 

IF  ( J.GE.I  JNUM(NC) 
RE  ADI KT 1 1  KNl, II  I 
RFADIKU)^  KN2  ,  ( I  I 
J=  J+2 
GO  TO  201 

219  I  CUT ( NC )  =  KT2 

IF l J.EQ.JNUMI NC) ) 
REAO(KTl)  KNl, it 
WRITEIKT2V  TCNl,(  I 

220  REWIND  KT 1 
REWIND  KT 2 

100  CONTINUE 

1=1  + 1 

IF ( JNUM(l) .EQ.2) 
IF  l  JNUM12) .EQ.2) 

IF ( I .EQ.2 )  GO  TO 

I F ( . NOT • CHECK ( l) ) 
I F ( , NOT • CHECK ( 2  )  ) 
IFUISWTU  J.EQ.l) 
GG  TO  900 


lARRAf(K,L,  3),L  =  l,NWRDS),K  =  l,KNl) 
IARRAT  (K,l,4),L  =  l»NWRDS),K  =  l,KN2) 

-in  GO  TO  219 

ARRAY (  K  ,  L  ,  l )» L  =  1, MW10S  ),K  =  1,KN1 ) 
ARRAY! K » L,  2  ) ,  L  =  1, N  WlOS  ) , K=  l,  KN2  ) 


GO  TO  220 

IARRAV (  K,L  ,  1  )»L  =  l»NWRDS)»K  =  i,KNl ) 
f  ARR  £V  I  K ,  l ,  1  > ,  L  =  1,  NWR'D  S )  ♦  K  =  1 ,  KN  l ) 


ISWTI  l)=l 
ISWT l 2  )=  1 


ISWTI  1  )=1 
ISWTI  2)=l 

•  AND  •(  ISWTI  2),EQ.l  )  » 


****  MUST  NOW  MERGE  THE  TWO  ORCERED  TAPES 

101  KP1- I  OUT  I  1 ) 

KP2= I  OUT  I  2  ) 

REWIND  INTAPE 
REWIND  IOUTAP 
REWIND  INTI 
REWIND  INT2 

IFIKPl.NE. INTAPE)  GO  TO  103 
IF (KP2.NE. IOUTAP)  GO  TO  102 

106  I  NTER=  I  NT  l 
GC  TO  400 

102  INTER= I  CUT  AP 
GC  TO  400 

103  IFIKPl.NE.  IO’JTAP)  GO  TO  105 
I F I KP2 . NE» INT  APE )  GO  TO  1C4 
GO  TO  106 

104  I NTER= I  NT  APE 

GO  TO  400 

105  IFIKPl.NE. INT l)  GO  TO  107 
IF (KP2.NE. INT APE)  GO  TO  108 
GO  TO  102 

108  IFIKP2.NE.  IOUTAP)  GO  TO  102 
I NTER= I  NT  APE 
GG  TO  £00 

107  IF (KP2. N£. IOUTAP)  GO  TO  102 
GO  TO  106 


ooo  o  o  o  o  o  o  ooooo 
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FIRST  TAPE  IS  KP1  ,  HAS  JNUM(l)  CLUSTERS 
SECONO  TAPE  IS  KP2,  HAS  JNUM(2)  CLUSTERS 
MERGED  TAPE  TS  INTER 

400  JI=1 
J2  =  l 

405  READ! KP1 )  KN1 ,  (  (  I  ARR  AY  (  I ,  J ,  I),  J  =  l,  N  W1  OS  ) ,  I  =  1 ,  KN1 ) 
READIKP2)  KN2 »  (  {  I  ARRAY  l  I»J,2)»J  =  ltNWRDS)»I=l»KN2) 

K=  1 
L=l 

402  IFIIARRAYTKVNKEY,  II  .L E. IARRAY! L , NKEY, 2 )  )  GO  TO  401 
WRITE! INTER)  ( IARRAY!  L,N, 2  ) ,  N  =  1 » NWR  DS ) 

L=  L+I 

ITTX  .T  F7KN7J  G  0  TO  "  407 
DC  403  KN=K,KN1 

403  WRITE!  INTER)  (  IARRAY(<N»N»  1 1 » N  =  l»  N WRDS  ) 

GO  TO  500  ~  ' 

401  WRITE!  INTER)  (  I  ARRAY  (  K,  N»  i  ) ,  =  1,  NWR  DS  ) 

K=  K+l 

I F  ( K .  LT7KNTT *00  TTT  40 7 
DO  404  LN=L,KN2 

404  WRITE!  INTER)  (  IARRAY  (LN»N,  2)»N=1»NWRDS) 

GO  TO  503 


500  ji=jn-r 

J2  =  J2  + 1 

I F  !  (  Jl.LE.JNUM(I)  J.ANC.!  J2.LE.JNUM!  2)))  GO  TO  405 
IFU  Jl.GT.JNJMCl)  ).ANC.(  J2.GT.JNUM!  2)))  GO  TO  600 

IF  ( J2.GT.JNJMI2)  )  GO  TO  501 

503  READTKT>2T~W, (TrARRAYTT,  J,  2  ) » J  =  l» N  WRDS  ),  I  =  1»KTJ2) 
DO  502  1=1, KN2 

502  WRITE!  INTER)  (  I  ARRAY  (  I,  N,  2  ) ,  N  =  1,  NWR  DS  ) 

J2  =  J2  + 1 

IF ( J2.GT.JNUM(2) )  GO  TO  600 
GO  TO  503 

501  READ! KP1 )  KN1 , ( (  I  ARRAY!  I , J ,  1 )  , J  =  It N WR DS  ) , I = 1 , KN1 ) 
DO  504  1=1, KNi 

504  WRITE!  I NTER)  (  IARRAY!  I,N,  l )» \l  =  l» NWRDS ) 

Jl= Jl+l 

IF ( Jl.GT.JNUM! 1) )  GO  TO  600 
GO  T0"50r 

600  REWIND  KPi 
REWIND  KP2 
REWIND  INTER 

IF  (INTER. EG.  IOJTAP)  RETURN 
DC  6UT "I=T7NR'CDS‘ 

RE  AD  (I  NTER)!  IARRAY!  1,J,  1 ) ,  J  -  l,  NWRDS  ) 

601  WRITE!  ICUTAP)  (  I  ARR  AY  (  1,  J  ,  1  ),  J  =  1,  NWRDS  ) 

REWIND  INTER 

REWIND  IOUTAP 
RETURN 


non  ooooonoooo  oo  o  o  no  o  o  non 


i,  yy  TPRJTl^rogmfcn; .'  P  'i'w;w.^HM  vr,it*r~ 
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OVERLAY ( MOHAN*  5,  0  ) 

PROGRAM  LNK1E 

COMMON  MAXNP,  MX  CIS ,  MX ADJ P * MXZ ON E, MXNPB » NZONE S» MXPEL3  , NUMNP  , 

1  NUMEL, ISTRES,NUMPEL»NUMELP*PERlOD»NMKCLS»FACTQR»ALAMB, 

2  KT  APE » KRJN*  IPR  I  NT  »NUMS T» MXSTR T*  I  EL  A  ST(  2  0  » I  PLA  ST (20)  , 

3  WGT  (207,  NST  ART  {7T),'EI(  5,  20),  IP  ELTP  ,  IN  ( ,NPRCD  S',  I MPB  X 

DI  MENS  ICN  NPT  N(  1600  ),NADJNP(  350  ),NPADJ(  350,  8)  ,  NAD  JEL  (  350) 
1,R(353),Z(353),  IT  Y  PEI  350  ),THETA(  350 ) » XMASSt 35C ) 

DIMENSION  CIA, 4),  CK  (8, 8), A  INK  23) 


DI  MENS  ICN  S  N  P'J  J  {  350),  SNPUW(  350),  SNPVIWt  350)  ,  SADLU(350,8) 
I  »S  ADUW  (  350  ,6  )  ,$ADWU(  350,  8  ),  SADWWl  350,  8) 

MCHAN=5HM0HAN  _ 

REWIND  l 
REWIND  4 
REWIND  8 
REWIND  10 
REWIND  12 


KE  ND=0 
NPOUT  =  0 
NUMCP=0 
NU  MNP8=0 
NPR=  MXNPB 
KY=i 

KEND  =  INDICATES  END  OF  ELEMENT  DATA 
NPOUT  =  NJ  M.  OF  COMPLETE  NODE  POINTS  OUT  ON  TAPE 
NUMCP  =NUM.  OF  COMPLETE  NODE  POINTS 
NUMNP8=NUM.  OF  NODE  POINTS  IN  BUFFER 

NPR  =  NO.  OF  NODES  REMAINING  TO  BE  COMPLETED  IN  BUFFFR 

KX  =  BEG  INN ING  OF  REGION  TO  BE  ZEROED  OUT 

****  2ER0  OUT  BUFFER  REGION 

1  ISWT  CH=  1 
GO  TO  900 

****  READ  IN  FIRST  RECORDS 

2  IF  (NUMNP.LT. MXNPB)  N'JMNPB=NUMNP 
IF (NUMNP. GE. MXNPB)  NUMNPB=MXNPB 
DC  3  1=1, NUMNPB 

RE  AD  ( 8  )  NPN,  N  ADJNPl  l),NADJEL(  l),(NPADJ(  I ,  J  )  ,  J  *  1 ,  MXAD  JP ) 
RE  AD (4)  NPN,  R  (  I ) ,  Z  (  I ) ,  ITYPEI  l ) , THETA( I ) 

3  CONTINUE 

I C  OU  NT  =  0 

4  READ ( 1 )  KEY.NUME, IZGNE, K ASE, NT  I , NT J ,N TK,N TL ,NCRACK 
I C OU  NT  = ICQUNT  +1 
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LNP=  MAXO ( NTT , NT  J , NTK, NTL  ) 

C 

IF  ( !  LNP-NPCUn  .GT  .MXNPB)  GO  TO  100 

C  SUFFICIENT  ROOM  IN  BUFFER  REGION 

C 

6  NPI  =  NT  I-NPCUT 
NPJ=  NT  J-NPCUT 
NPK=  NT  K-NPCJ  T 
IF  (NTLVEO'.Or  NPL“'0 
IF(NTL.NE.O)  NPL=NTL-NPOUT 
S1=0.0 
C1=0.0 

I  E=  I  EL  AST  (  IZONE) 

A1=E I ( 1 , IZCNE ) 

A3 =EI!3, IZCNE) 

A4  =  E  I (4, IZCNE  J 
A5  =  El  (5  *  IZCNE  ) 

RHO=WGT  !  IZCNE  )  /  (  386.4*1728  .  I 

CALL  EL  AST  (IE,  1ST  RES*  A 1  *  A2 »  A  .3*  A4»  A5,  C  »NliME  ) 

CA\L  STTFFTTCAS  E,  NP I  ,'NPJ «  NPK,  NPL  »  MURE, MXNPB  ,  l  STRE  S*C,R,Z»CK,AiNT, 
1S1 » C l *  NCRACK ) 

CALL  AOJUSKI  MXNPB.CK,  ITYOf,  THETA,NO I,NPJ,NPK,NPL) 

CALL  DISTK(MXNPB,MXADJP,CK,  SNPUU, SNPUW, SNP W W, SADUU, SAD LW  ,  SAD WL  , 
ISADWW,NPI,NPJ,  NPK,NPL, NPACJ, NPOUT  ) 

IF (NCRACK. EQ. 1)  GO  TO  b 

CALL'  MA5STMXWB,~RH],R,Z,  AINT,XMASS,  S1,C 1,NP I ,WPj;NPK,NPL ,1  STRES) 
5  WRITE!  12)  KEY, NJME,  IZONE,NTl,NTJ, NTK, NTL, NCRACK, 

1  (!C<  I,  J),  1  =  1,4),  J  4,4  MUSE,  Sl»  Cl 
C 

IF(ICQUNT.LT.NJMEL)  GO  TO  4 
KE  ND=  1 

KEY=  MU  MNPVT  ' 

C 

C****  INSUFFICIENT  ROOM  IN  BJFFER  REGION 
C 

100  NU  MC  P=  KEY-1 

NU  MNPB=  NJ  MCP-NPOJ  T 
C 

C.  PRINT  STIFFNESS  TABLES 

C 

113  CALL  PRNK(MXNPB,MXACJP,NADJNP,NPADJ,NADJEL,IPRINT,SNPUU, 

ISNPUW,SNPWW,S AOJJ,SADUW,  SADWU, SAOWW,THE TA , I  TYPE , XMASS,NPOUT  , 
2NUMNPB) 

C 

C  WRITE  SI  iFFNESS  TABLES  ONTO  TAPE  10  WITH  MASS  VECTOR 

C 

DC  101  1=1 ,NJMNPB 

101  WRITE(IO)  I  , NADJNPI  I ) ,  I  TYPE!  I ), THETA ( 1 ) , XMA  S  SI  I } , SNPLU ( I)  , 
1SNPUW I  I )  »SNPW  W  !  I  )  ,  l  NP  ADJ  (  I,  J),  SADUU!  I ,  J  ) ,  SADUW  ( I  ,  J )  ,  SAD  WU  ( I  ,J)  , 

2  S'ADWWT  TTTT?  J  =  1,  MX  ADJ  P  ) 

C 

IF (KEND.EQ.i )  RETURN 
NPR=  MXNPB-NUMNP3 
GO  TO  902 
C 

C  ZERO  RFFAITTING  BUFFER  AREA 
C 

107  KX  =  NPR+ 1 


*  "V Vt^re ’'I'.T^rwi*;  '-’• 
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,  l SWT  CH=  2 

GC  TO  900 
C 

C  READ  IN  REGAINING  NODE  POINT  AND  ADJACENCY  DATA  TO  FILL  IN  BUFFER 

C 

108  IF { (NUMNP-NJKCP) .LT .MXNPB)  KNP  =NUMNP-NUMCP-NPR 
IF  I (NUMNP-NUM CP) .GE.MXNPB I  KNP =MXNP B-NPR 

I  00  109  1=1, KNP  i 

L=  NPRi I 

RE  ADTgi“RP7^7MAD'JNTyTry  ^  A  DJEL  (  L  I ,  IN*  ADJ  ( L » J  ) ,  J  =  1 ,  MX  AD  JP ) 

READ', 4)  NPN,  R I  L  ) »  Z I  L  ) »  ITYP6IL  ),  THE  TAIL  ) 

109  CONTINUE 

NPOUT=  NUMCP  "  . 

GO  TO  6 
C 

C****  TR ANSTER“'P7nrr  '  W7MrCE_KTFFER  REGION 
C 

902  DC  903  K=l»NPR 

L=  NU  MNPB+K  ; 

NADJNPI K)=NADJNP( U 
NADJEL(K)=NADJEL( L ) 

ITYPEIW  I  Type  a ) 

THETA(K)  =THETA(L  ) 

R(K)  =  R(  L  ) 

Z(K)  =  Z  (  L  ) 

XMASS(K)  =XMASSIL  ) 

SNPUUIK)  =SNPUU(LS 
SNPUWlKl  -SNPJW(L) 

SNPWW(K)  =SNPWW(L) 

DC  903  J= 1 » MX  AOJ P 
NP  AD  Jj  I  K » J  )  =  N  P  ADJ  (  L »  J  ) 

SADUU(K*J)  =  S  ADJJI  L,  J) 

SADUW(K,J>  =  SADUWIL,  J) 

SADWUTK,  J)  =  SADWJ<  L,  J  )  " 

90 J  SADWWI K, J)=SACWW( L, J I 
C 

GC  TO  107 
C 

C**»*  ZERC  OUT  BUFFER  REGION  SFCTIDN  ASSOCIATED  WITH  NODE  DATA 
C 

900  DO  901  L=KX, MXNPH 
NADJNPI L 1=0 
NADJEL ( 0  =  0 

IT  YPE I L  )  =  0 
THETA!  L)=0.0 
R<  0=0.0 
Z(L)=0.0 
XMASSIL  1  =  0.0 
SNPUU  I L )=0  .3 
SNPUW  (  L  )  =0  .0 
SNPWW  (  L )  =0  .0 
DC  901  J=  1 1  MX  ADJ P 
NPAQJI L, J)=0 
5A0UU ( L, J)=0 .0 
iADUWl L, J)=0 .0 
SAOWUI L,  J)=Q  .0 

901  SADWWI L,J)=0 .0 

c  -  -  -  ...  . 

GO  TO  (2,108),  IS WT CF 
C 


’  i 


o  o  o  o  r>  o 
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END 

SUBROJTINE  EL  ASH  I  EL  AST,  ISTR ES,  E  1,  E  2*  E  3  ,E4 , E 5, C  , NUME  i 
C 

DrHEPKTTCN- CTA74T~ . . . . . . 

C 

C**$*  FORM  STRESS-STRAIN  MATRIX 
C  '  " 

OC  1  1=1,4 
OQ  l  J=  1 ,4 

l  C  (TJ)  =  075 -  -  -  -  - 

c 

IFUELAST.NE.l)  GO  TO  20 
C 

C ♦***  ISOTROPIC  ELASTIC  MATERIAL 
C 

IF{ISTRES.EQ:2)  GO’ TO  4 

AXISYMMETRIC  OR  PLANE  STRAIN  PROBLEM 

EBAR=E1/H  l.+E2)*(  l.-2.*E2) ) 

C ( 1 , 1 )  =  FBAR* ( 1.-E2) 

C  (1 , 2T=^EB7TR'^E2 -  "  '  " 

C(i,3)=C(l»2> 

C(2,1)=C( 1,2 ) 

C(2,2J=C(1,1 ) 

C(2,3)=C(1»2) 

C(3,1I=C( 1,2 ) 

C  ( 37  2  r="CT'172  7 . 

CC3,3)=C(l,l ) 

C ( 4 ,4 )  =  FBAR* ( l.-2.*E2  )/2. 

RETURN 

PLANE  STRESS  PROBLEM 

4  EBAR=  El/ (1«-E2*E2) 

C ( l , l )  =  EBAR 
C ( 3 , 1 ) =EBAR*E2 
C  ( 1 , 3 )  =  C(  3, 1 ) 

C<3,3 l=C( 1,1 ) 

C(4,4)  =  EBW*T  I.-E2I/2.  ' 

RETURN 
C 

C***«  AN  IS  OT  RCP7C  ELASTIC  MATERIAL 
C 

20  IF  (IELASJNNE.2)  G0_P_30 

IF ( 1ST  RES • EQ. 2 )  GO  TO  2 
C 

C(l,l)=El 

C( 1 ,2 )  =  Ei-2. *E5 

Cl i,3)=E3 

C ( 2  » 1 )  =  C( 1 ,2  J 

C(2,2l=C(l,l) 

C(2,3)=C(l,3) 

C ( 3 , l )=C( l ,3 ) 

C(3,2)-C(2,3) 

C  ( 3 , 3 )  =  E2 

C  ( 4 , 4  )'='E4  -  -  - 

RETURN 


C 


ooooooooooooooooo  o  ooo 


!"  H.  , , 1  ».I!U  HJL 


Tin11  wmppi/  *, 
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2  C(L,l)=2.*E5*(El-2.*E5)/El 
C(1,3)=2.*E3*E5/E1 

c(3*n»cu.3j_ 

C  ( 3  »  3  )  =  E2-E3  * *2/  E  l 
C  (4  » 4  )  =  E4 
RETURN 
C 

21  WR IT  £ ( 6  » 3 )  IELASTtNUME,  1STRES 

3  FCRMAT  (  1H1/31H  ERROR  IN  ELASTIC  CONSTANT  DATA/ 

113H  I  EL  AST  =  ,  I5/13H  ELEMENT  NO.  =  ,15/ 

2 1 3 H  ISTRES  =,  15) 

CALL  EXIT 
C 

30  IFUELAST.NE.3)  GO  TO  21 
C 

C  ****  CO MPRESSTB  LE  F L  J  I  (T 
C 

IF (1ST  RES .  .2)  GO  TO  21 

C 

DC  31  1=1,3 
DC  31  J=J_,  3 

31  C( I , J)  =  E1 . 

C 

RETURN 

END 


SUBRUJT INE  ST IFF(KAS6,NP I, NP J , NPK , NPL , N LME , MA XNP , I STRE S ,C ,R , Z , 
l  C  K , A I »S 1 »  Cl » NCRACK ) 

QI  MENS  ICN  C(  4 , 4  )  ,  R(  MAXNP  )»Z  (  MAXNP  ),  C<  (  8 , 8 )  ,  A I  (  23 )  ,D  (  8 , 8)  ,G  (8,B)  , 
1VEC(8) 

COMPUTE  ELEMENT  STIFFNESS  MATRIX 

KASE  =1  GENFRAL  TRIANGLE 
=  2  NCDE  I  UN  Z- AX  IS 
=  3  NCOES  I , K  ON  Z-AX  IS 
=  4  GENERAL  RECTANGLE 
=  5  NCDE  I  ON  Z-AX  IS 
=  6  NCDES  I, L  ON  Z“AX  IS 
C  =  ELAST  IC  MOCJL  I  MATR  IX 
R  =  RAD  I AL  COORDINATE  OF  NODE  POIMTS 

Z  =  VERT  I  CAL  COORDINATE  OF  NODE  POINTS 
CK  =S"T  IFF  NESS  MATRIX 
AI  =  INTEGRALS  FOR  COMPUTING  K  AND  M 
NUME  =  ELEMENT  NJMBER 


C 


DO  1  1=1,8 
DC  1  j=  1 ,8 
D ( I , J)=0.0 
G ( I, J)=0.0 
C K  ( I  ,  J )  •=  0  •  0 

IF (NCPACK.EO. 1)  GO  TO  300 

CALL  INTER(KASE,NPI,NPJ,NPK»NPL,  I STR ES, R, Z , A 1 , SI, Cl, MAXNP) 


C 


IF(NPL.NE.O)  GO  TO  300 
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C  TRIANGULAR  ELEMENTS 
C 

AJ=R(NPJ)-R(NPl ) 

AK=R'(TyPKr-‘RTNFI  I  -  "' 

BJ=Z ( NPJ) -Z( NPI ) 

9K=Z(NPK)-Z( NPI) 

H=  A J*BK-AK*BJ 
B=BJ-BK 
A= AJ-AK 

IFfK'AST.W  ..T  GO  T  0  2  -  - 

D  ( 1 » 1 )  =  1 .0 
0{2*n  =  B/H 
0(3*1)= -A/ H 

2  0  ( 4  *  2  )  =  i  .0 
D  ( 5  *  2  )  =  6/  H 

CM6,7)>~A7F . 

0(2,3  )  =  BK/H 
0(3*3)= -AK/ H 
0(5,4)  --012,3  ) 

0(6,4)=C(3,3) 

IF (KASE.EQ.3 )  G1  TO  3 
D  ( 2  »5T="-B37H 
0(3,5)  =  AJ/  h 

3  D(5,6)=-BJ/H 
0(5,5)  =  AJ/H 
N0R0=6 

C 

IF  (KASTT.NF.  i  7  GO  TO  4 
IF(ISTP.eS. NF.O)  GO  TO  4 
G(l,l)=C(2,2)*AI( 5) 

G(2,l)  =  Crl,2)*AI(  1)*C(2,2)*AI(  7) 
G(3,1)=C(2,2)*AI(6) 

G ( 6 , 1 )=C(2,3 ) *AI( 1) 

4  Gr2‘,2TFCrr,T)*AI(4T+2;«C(  l ,  2  )  *A  I  (  3T+C  (  2~* 2 )  *  A  1  (TO  ) 
IF (KASE.EQ.3 )  GO  TO  5 

G(3,2)  =  C(  1,2  )  *AI(  2)+C(  2,  2KAl(  9) 

G(3,3)=C12,?)  *AI(8)-»C(4,4)*Al»  4) 

G(5,3)  =  C(4,4) «A’(  4) 

0(5,3)=C(2,3)  x '  l  (  2  ) 

5  G  ( 6 , 2 )  =TTT •  3  )  *  A  H  a  )  +c  I  2  ♦  3)*AIi  3) 

G(5,5 )=C(4,4) *AI( 4) 

G  ( 5 ,6  )  =  C(  3 » 3  )  *-AI  (  4) 

GC  TO  301 
u 

C  RECTANGULAR  ELEMENTS 

C  - 

300  A J=  R ( NP J )-R( NPI ) 

BJ=Z ( NPJ) -Z( NPI ) 

A=  SQRT  (  AJ*AJ  +  BJ*BJ  ) 

AL=  R  (  NPL  )  -R(  NP[ } 

BL=Z (NPL)-Z( NPI) 

B=SQRTTAL*Al  +  BL*BI  ) 

H=  A^B 

I F { NCRACK . EQ  .0  )  GO  TO  9 
AL=  A 
A=  1.0 
B=  1 .0 
H=  l .  0 

9  IF (KASF.NE.4 )  GO  CO  6 
0(1,1)= i.O 
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0(2, 1 i = -B/ h 
0(3,1)  =  1./’* 

0(4,1)  =  —  A/H 

6  0(5,2  )  =  1.70 

0  ( 6 , 2  )  =  -  B/  H 
0(7,2 )=  l./H 
0(8,2)= -A/ H 
0(2,3)= -0(6,2  ) 

0(3,3)= -0(7, 2) 

0(6,4)  =  C (2,3) 

0(7,4 )  =  C ( 3 , 3 ) 

0(3,5 )=0(7,2 ) 

0(7,61=0(7,2 ) 

IF (KASE.EQ.6 >  GO  TO  1 
0(3,7  >  =  0(3,3 ) 

0(4,7 )  =  -D(8,2  ) 

7  0(7,8 )=C(7,4 ) 

0(8,9 ) =-0(8 , 2 ) 

N!CKD=3 

IF (NCRACK.EQ.  1)  GO  TO  10 
C 

IF (KASE.NE.4 )  GO  TO  8 
IF (ISTRES.NE.O )  GO  TO  8 
G(l, 1 )=C(2,2)*AI( 5) 

G(2, 1  )  =  C(  1,2)  *C1<'AI(  1  )+C(  2,  2)*AI(  7) 

G(3,1)  =  C(1,?)*(C1*AI(  2)+Sl*A1(  3)  )+C(2,2)*AI  (9) 

G(4,1)  =  C(1»2  )  *S  1  *  A  I  (  1  )+C(  2,  2 )  ♦  A  I  (  6) 

G  ( 6 , 1 )  =  -  C  (  2 ,  3  )  *S  1  *  A  I  (  1) 

G(7,l)  =  Ci'2*3  )  *(  C 1 *A  K  3)-Sl*A!(  2)  ) 

G(8,l)  =  C(2,3)*(Cl*AI(  1 )  ) 

C 

8  DUMl=Ci*AI(  14  )♦$  1*AI(  13) 

OUM2  =  Cl*AI(13  )-S  L  *A  I  (  14) 

013^3  =  Cl  »C1*AI  (  12  )+2.*S!*Cl*AI(  15  )+S  1*S1*A  I  (  U  » 

DUM4  =  $l*Sl*Al  (  12  )  -2  .*S  1  *C  1*A  I  (  15  > +C  1*C  1*A  I  (  >  . ' 

G(2,2)  =  C1*(C(  1,  l)*Cl*AI(  4>+2.*C(  1,2I‘4H3)I  C  l  2 ,2  >*M  ( 1  0) 

1+C  (4,4  )  *S1  *S  1  *AI  (  4  , 

G(3,2  )  =  C(  1  ,1  )  *C1*0JMI*C'  1,  2  )*(  2.*Ci*A  I(  16)  + SI*  A I  (  18)  ) 

1+C  (2,2)  *AI  (17  )-C(  4,  4  )  *S  *  CUM  2 
G  (  7 , 2  )  =  C  (  1  j 3  )  *C1  *0JM2+C(  2,  3  )*(  C  1*A  I  (  1  8 )-Sl*A  I  <  16)) 

I-C  (4  ,4  )  *S1  *0JM1 

G(8,2)  =  AI(4)*(C(  1, 3  )*C  1*C  1— C  (  4,  4  )*S  l*S  1  HC  (  2,  3  )*C  l*  A  I  (3) 

G(3,3)  =  C(  1,1  )*0JM3+2-*Ci  1,2>*(C1*AI(20)+Sl*.'  1(23)  ) 
i+C  (2 ,2  )  *AI  <21  >+C(  4;4)*0l>M4 

G ( 6  >  3 )  =  -C i 1 , 3  J*S i*DUM i-C( 2, 3 ) *S l*A I ( 1 6 ) +C ( 4 , 4 ) *C 1*DUM2 
G  ■  7 , 3  )  =  ( C(  1 , 3  )  ♦C(  4,  4j'M  $  i*Cl*(  Alt  1 1 :  •  U  12))+AI  (15)*(Cl*Cl-Sl*Sl) 
1 )  <  C(2,3  )  *  (  C  l  *  A I  (  23)-S  1  #  A  I '  20)  ) 

G(8,3)  =  C(i,3)*Cl*CJMl+C(?,3)*Cl*AI(  16 )  ^C (  4 , 4  )*  5i*DLM2 
G(6,5  )  =  (C(  3,  3  >#S  1  *S  l  +  C(  4,  4)*Cl*Ci)*AIl  4) 

G  (  7 ,6  )  =  -C(  3,  3  )  *S  i*0UM2+C(  4, 4)*Cl*0UM  l 
G  (  7  ,  7  )  =  C(  3,3  )  -0JM4+U  4,4)*DU'33 
G(8,7  )  =  Cf3,3  )  *C1*CUM?+C(  4,  4  )*SI*QIM  l 
G(8,8  )=  (C(  3,  3  )*CI*C1+Ct  4,  4  )*S  1»S  1  )*Al(  4) 

IF (KA^E.EQ.6 )  GO  TO  301 

G(4,2)=  (Cl  1,  i  )-C(  4.  . )  )*S1*CI*A  I(  4)+C(  l,  2)*iCl*AI  (2>  +  Sl*Al  (3)  ) 
l  +  C  «2,2) *A! n ) 

G(5,2)s-(C(l,3)+C(4,4»l*Sl*Cl*AI(  4)-C(2»3)*Si*AI  (3) 

G(4,3)  =  C(  1,1  )  *>l*DJMl  tC(  1,  2>*(  Cl*Al(  19)+2.*Sl*Al  (  16)  ) 
l+C (2 ,2 ) *AI (22  )+C( 4, 4)'C «*0UM2 
G(4,4  )  =  C(  1,1  ‘  *S  l*Sl*AI(  *.  H2.*C(  1,  2)*  SI*  A I  (2)+C  (2,2)*Al  (8) 
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A-U2 

l»C(4.4)*Cl*Cl*A|(4l 

GI6,4J  =  A|UI*ICi  <.,4>*C1*C1-C(  t*  3t*Si*Sl)-C(  2»3)*Si*AI  (2) 

G(7»«*)  =  C<1*3|*S  l  *CJH2*C{  2,  3  >*(  C  l*Al  (  16)- Si*  A  l  (  19)  )+C  (4,4)  *C1*UUP1 
G»8,4J  =  lC{l.3)»C(4»4n*Sl*CI*AH  4 )*C< 2» 3)*C 1*A  I  <  2 ) 

GC8,5l=St*a  «1  Cl  4, 4  )-C<  3»  3)  >*Al(  4) 
r 

301  DC  201  !  =  2.*<0R0 
**  1-1 

0C  231  J-i,K 
201  GfJ.IWCn.Jt 

c 

c 

OC  51  J= 1 »  NCR  C  1 

DC  5u  L=l,N0«r 
VC  C 1  L  1  =  0 .3 
DC  53  K  =  l ,  KTJS  C 

53  vFC(l)=VECll 1  GIL ,  K  >  *  C(  K ,  J  } 

OC  5  1  i=l,NOKO 

c*ii,jio.r, 

DC  51  t=  1  *  NOR  () 

51  CKII  «CKt  U  JH-UILt  1)*VFC(L  ) 

C 

“ETUKN 

C 

10  a  =  AJ/AL 
S1=-BJ/AL 

Hl=C( l ♦ l)*$l*Sl+C(4t4 )*Cl*Cl 
H2MCT17Tl+Ct4»41T*51*Cl 

H3  =  C(3,3)*C1*C1+C1  4t4  )*Sl*M 
l F ( I  ST  RES »  EQ . 0  )  GO  TO  11 
G  (  3  f  3 1  =  AL*H1 / 3. 

G  (  4 » 3  )  =  AL*Hi / 2 • 

G ( 7  *  3  I  —  AL*H2/ 3 . 

G(8,'3T=Al*P2/2. 

G  ( 4  » 4  )  ~  3 .  *G(  3  •  3 1 
G(7,4)=G(8,3) 

G (8 1 4  1  =  2 .  *G?  7  » 4  1 
G ( 7  t  7 )  =  AL*H3/ 3 • 

G(8,7)=AL*H3/2. 

G(8,8)=2.*G(8.7) 

GC  TO  301 

11  RI-R(NPl) 

I F  ( ABS  (Si)-  GT  .0.01)  GO  TO  12 
G 1 3  #  3 )  =  AL*k i #H17 3. 

IF  (KASE.EQ.6  i  GO  TO  14 
G(4,3J=AL*Hl*(RI/2.+AL/3. ) 

G(4,4)= Al*Hl *( Rl+AL/2. ) 

14  G(7,7  )  =  AL«RF*H3/ 3. 

G(8»7)=AL*F3*( RI/2.+AL/3. ) 

G(8,8)=AL*H3*iKl*AL/2.) 

GC  TO  301 

12  IFIABSTCIF.GT  30.01)  GOTO  13 
G(3,3)=AL^Hl*( RI/3.+AL/4. ) 

C(4,3)  =  AL*RI  *Hl/2. 

G(4,4)=AL*PI*H1 
GC7.7»sAL*h3*(Rl/  5.  *AL/4.  I 
G{8,7}  =  AL*R-*H3/2. 

G(8»8)=2.*G. 8f7) 

GC  TO  301 

13  RIbT=Rl+Al*Cl 


-  -- - n 


ooo  o  o  no  noon 
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M-i/, 


H4  =  l  AL**3  >  *1  Rl/3.+AL*Cl/4.  ) 

H5=  I-AL**3/(  13.*S1M*I  3.*R  H-2.*AL*C  1>- AL* AL*R I ** 2 / ( 3 0. *  SI* SI  * 

1  Cl)+AL*R1**3*(  l.-RI/RIST)/(  30.*S1*S1*C  l*C  1 ) +A  L**  3*  (  i  C.  *Rl  **2+ lb. 

2  * AL*R1  *CT+6  *  *AL  ##2*C  T*C 1  )/(  30  .*R  1ST*  S 1*  S 1 ) 

H6  =  AL*#2*l  RI/2.+AL*Cl/3.  ) 

H7=-AL**2*(5.  *RI  +  3.*AL*C1  )/<  12.*  SI#  SI  )-AL*RI**2*  (  1.-  R1  /Ri  ST)  / 

1  (  12.  *S  1*S  l*Cl )  *AL**2*(  6.*Rl**2+8.*AL*R  I*C  1+3.*AL**2*C1*C1  )  / 

2  (12.*Sl*Sl*RISr  ) 

HR  =  AL*  (  R  I  +  AL  *C  1/  2  .  ) 

G(  3  »,3  )  =  HI  *H4  +  C(  2*  2  )  *H5 
•  G(4, 3)=Hl*H6+C(2, 2)*H? 

G ( 7 ♦ 3 )  =  H2*H4 
G(P,3)=H2*H6 
G(4,4 )=H1*H3 
G ( 7  » 4 )  =  H2#H6 
G  {  8  »4  )  =  H2*H»  ’ 

G( 7,7 )=H3*H4 
G  (  8  »7  )  =  H3*Hf> 

G  ( 6 , 9 )  =  H3#FR 
C-C  TO  301 
C 

END 


SUBRUJT  INE  INTER(KASE,NPI,NPJ,\|PK,NPL,  I  STR E  S,R  »  Z  ,A  I  ,  S 1  ,C  I  ,  PA XN P ) 

*  CCMPUT E  ELEVEN)'  INTEGRALS 

DI MENS ICN  AI { 23), R( MAXNP  ),Z(MAXNP  ) 

DC  L  1=1,23 
1  AI (I)=0. 

IF(NPL.NE.O)  GU  TO  300 

TRIANGJLAR  ELEMENTS 

AJ=R(NPJ)-R( NPi) 

AK=  R  (  NPK  ).—  R  t  NPI) 

BJ=Z<NPJ)  -H  NPI) 

BK-  Z  (  NPK  )  -Z  ( NPI) 

H=  A J*BK-AK*fi J 
B=  B J-8K 
A=  A2-AK 
Rt=R( NPI ) 

! F ( 1ST  RES . EQ.O  )  GO  TO  2 
AI  f4  )  =  H/2. 

AI  U3)  =  H*{  A  j  +  AK  ;  /  6  • 

A I  1 1  '•  *  =  H  *  i  f;  J  +  RK  )  /  6  . 

KF  T  il  k  N 


a  i ;  i  i  -  h/  2 . 

A  :  1 2  i  -  *  <  # !  3  j  >  8  K  ) !  6 
A I  l  3  )  ■  i  *  i  A  J  +  »*. '  t  /  B  > 

A 1  (  4  )  R  i  *  A  H  1  «  A  ii  3  ) 
if  (KASf.F'v.l  I  (»')  TO  3 
A  i  •<  '  -  A  I  !  ,M 
A  l  <  L  ..  i-  Ml  4) 


3  l  C  OU  NT  =  1 
RA=  R I 
R0  =  R{ NPJ) 

C=  BJ/  AJ 

0=0. 

OUM=  -1  . 

IF (C.EQ.O. )  GO  TO  100 

101  IF (KASE.EQ.t )  GO  TO  102 

I F  f  KASTE'.NF.?  V  GO  TO  10'4  '  '  - 

IF(RA.NE.O.)  go  TO  102 
F0=  ALOG I R8 ) 

GC  TO  104 

102  FC  =  ALOG( RB/RA  ) 

104  OU  Ml  =  R8-RA 

DU  M2=RB*RB-RA*RA 
DU M3=R8*RB#R8-RA*RA*RA 
DUM4=UJP2’MRB*RB  +  RA#RA) 

I F  ( KAS  E . FQ. 3 ) GO  TO  103 
Fl=DUMi-Rl*FU 

F2  =  DUM2/  2 .  -2  .  *R  I  *CJH  l  +R  I  *R  I  *F0 

F3=nUM3/3. -1 . 5*R I *CUM 2  + 3  .$R I*RI*DU^ 1-R I  *R I*R I*FO 

1 03  G0=0UM2/2v 

G1  =  DUM3/ 3 . -R I ♦DJM2/2. 

G2  =  DU M4/4.-2.*Rl*CJM3/3,+ft  1*R  I*DUM2/2. 

C 

IF (KASE.NE.l )  GO  TO  105 
AT  I5y=AnTHDJM*T  C*Fl*D*F0r 

AH5  )  =  AI(6  )  +  DJM*(  C*C*F2/2.+C*D*F  l+D*D*F0/2.  ) 

A I  (7  )  =  AK7J  +  nUM*(  C*F2+D*F1) 

Af (9 )  =  A I  (9 )  +  DJM*{ C*C*F3/2.+C*D*F2+D*D*F 1/2. ) 

AI  (10)  —  AI{  10  )+D.IM*(  C*F3  +  C*F2) 

GC  TO  106 

105  IF (KA5E.NE.2)  GO  TO  107 

106  At  (8  l  =  AH8  )  +  OJM*(  C*C*C*F  3/ 3  . +C*C*D*F  2+C*D*  D*F  H-D*0*D*F  0/ 3.  ) 
10  7  AI  113)  =  All  13)+DJM*(  C*G2+0*Gt) 

AI  (14)  =  AH  14  >+DJM*(  C*C*G2/2.+C*D-»Gl+OOD*GO/2.  ) 

C 

100  GO  T0J201, 202,20  3),  ICOJNT 
201  I C  OU  NT  =  2 

IF (A.EQ.O. )  GO  TO  100 
RB=  R I NP J ) 

RA=  R ( NPK ) 

C=  8/  A 
D=  H/  A 
DU  M=  +Y.  -  ‘ 

GO  TO  101 
2  02  I  COUNT  =  3 

IFIAK.EC.O.)  GO  TO  100 
IFOK.EC  0.)  GO  TO  100 
R9=R (NPK) 

RA=Rt  - 

C=  BK/ AK 

0=0o 

OU  M=  +  l  . 

GC  TO  101 
203  RETURN 
C 

C.  RECTANGULAR  F 1.  EMI- NT  S 


A-U5 


300  AJ=R(NPJ)-R(  NPI ) 

BJ=Z { NP J I -Z  (  NPI) 

A=SQRT  (  AJ*AJ+BJ*BJ) 

AL=R(NPL)-R( NPI) 

BL=  Z ( NPL ) -Z ( NP I) 

B=SQRT  (  AL*  AL  +  BL*BL  ) 

H=  A*B 

SI =  -B  J/ A 
Cl  =  A J/ A 
RI  =  RlNPI I 

IF(Sl.GT..0l  )  GO  TO  301 
S1=0. 

Cl  =  1 . 

GC  TO  302 

301  IF1C1.GT..01 )  GO  TO  302 
SI  =  1 . 

C1=0. 

302  S2  =S  1  *S  l 
S3=S2*S 1 
02=01*01 
03=02*01 

C 

I F ( I S  T  RES .00.0)  GO  TO  303 
A I  (4  I  =  H 

AI (1 1 }=A*A*H/3. 

A I ( 1 2  )  =  6*B*H/ 3  • 

AI (13 )= A*H/2 . 

AI ( 14 )  =  8*H/2  • 

AI (15 )=H*H/4. 

RETURN 

0 

303  AI  (1  }  =  H 

AI  (2  )  =  B*H/2. 

AI (3 )  =  A*H/2. 

AI  (4 }  =  R I *A I (  1  ) +C 1 *A I (  3)+SI*AI(  2) 

AI (18 )=A*A*H/3. 

AI (l9)=8*B*H/3. 

AI (20)=B*H*H/6. 

AI  (23)  =  A*H*H/6. 

AI  (lf>)='H*H/4. 

AI  (15)  =  RI*AI(  16)+Ci*AI(  ?3)+Sl*AI(  20) 

AI  (14)  =  RI*AI(2)+0i*AI(  1M+SI*AI(  19) 

AI  (13)  =  RI*AI(  3  I  +C  i*A  I  (  18)  +  S1*AI(  16) 

AI  ( 1 2  )  =  R I  *AI  (  19)+Cl*AI(  20  )  +  Sl*B**3*H/4. 
AI  (U)  =  RI*AI(  18  )  +S  1*A  I(  23)+0i*A**3*H/4. 
I F ( KAS  E.NE.6 )  GO  TO  304 
AI  (2 ) -0  . 

AI  ( 1 0  >  =  A I (4) 

AI (17 i  =  AI <  14  ) 

AI (19  »=0. 

AH21 1  =  A I  (  12  ) 

RETURN 

0 

304  A2=A*A 
A3  =  A2  * A 
B2=B*B 
B3  =  B2*b 
Rl  2=  RI *R  * 

RI  3=  R  l  2  *R  I 

I F  (S  1 .  NE .0  .  )  GO  TO  305 


MtafeiintMkiaUMu 


O  O  CJ 


A-A6 


«3 


c 


c 

c 


0l=AL0G(l.+A/ RI ) 

AI (5  )  =  B*D1 
AI  (6  >  =  B2*0l/2. 

AT  (7T=TFBW*0I '' 

AI  (8  )  =  83*01/  3  . 

AI  (9  )  =  B2*(  A-R  1*01  )/  2  • 

AI  { 10  )  =  B*T~A2/2.-A*R  I+RT2*D1) 

AI  (17)  =  B2*RI2*0l/2.-B*H*R  l/2.+H*H/4. 

AI (21)  =  83*(RI2*01+A2/2.-A*R  I  )/3. 

AI  122  )  =  B7*TF-B *R T* Dl)77. 

RETURN 

305  IF (Cl . NE.O . )  GO  TO  306 
01 =ALOG( 1 . *6/ R  1  ) 

AI  (5 )  =  A*D1 
AI  (6  )  =  H-A*RI*D1 
AI  (7)  =  A2*Dl/2. 

AI (8)=A*R 12*01-  *RI+B*H/2. 

AI  (9  )  =  A  2  *  <  B-R  I  *D  1  )/2. 

AI  (10)  =  A.;*C1/  3. 

A I  (17*  A2  *H/  3  •  —A  3*RI*Cl/3. 

AI  (2ir=~AT*(RI2*01+B2/2.-B*R  D/3. 

AI  (22)  =  H*H/4.-A*H*RI/2«+A2*K  I2*Dl/2. 

RETURN 

306  01  =  AL(JG(1.-H*SI*CI/((RI+B*S1)*(RI+A*C1)  )) 

D2  =  AL0G(l.+A*Cl/( RI+B*S1)  ) 

03  =  a uJGrnr."+  it  *s  i/tr  i  ♦  a  *c  1  n 

A!  (5)~(RI*C1+B*02*S  l  +  A*03*C  1  )/(  S  1*C  1 ) 

AI  (6  )  =  (B2*C2*S2-RI2*C1-A*C1*D3*(  2.*R  I  +A*C  1  )  +H*  S1*C  1 )  /  (2.  *  S2  *C  1  ) 

AI  (7)  =  (  A2*C3*C2-RI2*0l-B*Sl*02*(  2.*R  I+B*Sl)  +H*  S1*C  1 )  /  (2.  *Sl*C2  ) 

AI  (8  )  =  (8*H*S2*Cl/6.-2.*H*R  I*S1*C  1/3  .-A*  H*  S  1*C  2 /3.  *RI  3*D1  /3. 
l+B3*S3*02/3.+Cl*A*(  RI2  +  A*R  1*C  l+A  2*C  2/3  .  )*D3)/(  S3*C1) 

AI  (9  )  =  (  A*h'*S  1  *C2/  3.+B*H*S2*Cl/3.+H*R  I*  S  1*C  1  /6.  +R I  3*Dl  /6. 
l-S2*(82*RI/?.+B3*Sl/3.)*02-C2*(A  2*3  1/2.  *A  3*  Cl/3.)  *03)  /(  S2*C2) 

AI  (10  )= ( A*h*S l*C2/6.-2.*H*R 1*5  1*C  1/ 3  .-B*H* S2*C 1 /3. *R I  3*01/3. 
l+A3*C3*C3/3.+Sl*H*(  RI2  +  B*RI*Sl  +  B2*S2/3.  )*D2)/(  S1*C3) 

AI  (17  )  =  (  A2*H*Sl*C3/4.-R  I*R  I3*01/12.+S2*B2*(RI2/2.+2.*B*Rl*Sl/3. 
l+B2*S2/4.)  *02-C3*A3*(  R  1/ 3  . +A*C  1/ 4  .  )  *  0  3-  Si*C  1*H*(RI2/12.*-5.*B*RI 
2*Sl/12.+B2~*S2/4.  ) +S  1*C2*H*(  A*R  1/ 12. +h*  S  1/8.  ))/(S2*C3) 

AI  (21  )  =  -H*(  A3*CI/S2+B3*S1/C2  )/5.+H*H*(A  /Sl+B/C  1)  /10.-RI2*H*  (B/Cl 

1  +  A/S  1 )  /  (30. *S  l*Cl  )-.3*RI*E*(  A2/S2+8  2/C2  )+R  I  3*H/(  3  0.*S2*C2) 

2  +  RI*H*H/(20.*S 1*C1)+R I2*R l3*Dl/( 30.*S3*C3 ) *8 3*02* (RI  2/3. +8*RI *S1 
3/2.* 82 *S 2/5. )/C3  +  A3*D3*( R 1 2/ 3 . +A*R I*C 1 / 2. +A 2*C 2 /5. ) /S3 

AI  (22 )  =  H*H/{ 8 .*S 1 ) -5 . *A*H*R I / (  I2.*S2  )-A 2*H*C 1 / (4.* S2 ) -H*RI 2  /  ( 12. * 
IS2'*CITWFWU7(  12.*ST*i:i)+B2*H/l  4.*Cl)>A2*D3*(RI2/2.+2.*A*RI*Cl 
2/3 .  +  A2  *C2/4 . )/S3-RI*R I3*Dl/(  1 2  .  *  S  3*C  2  >-B  3*0  2*  (  R  I /3.  +  B*Sl /4. ) /C2 

RETURN 

END 


SU8R0JT INE  AOJUSK (MAXNP* BK  ,  I  TYPE, THE  T4  ,  NP  I  *  NP  J ,NPK,NPl ) 
C 

DIMENSION  BK<  K,8  )  ,  BKBAR(  8,  8  ),  C(  8,8>,VEC(8) 

01  MENS  I  CM  ITY  PEI  MAXNP  ),  THETA{  MAXNP  ) 

C 

NCRD=  8 


Ji"!  Wiyi*" >^i  J  V  ?*’iw"  nir*? !JWp*l*5WJW*‘r /?5T2Kr*v 


B4 


A-^7 


IF(NPL.EQ.O)  NQRD=A 


ISWT  CH=0  .  .  --, 

IF ( l f YPEI NF!  ) .NE» l )  GO  TO  3 

MX  =  1 
NP=NPI 
IC0UNT=  1 

GC  TO  6  , 

5  IF (ITYPE(NPJ ) #NE . I )  GO  TO  A 

MX  =  3 
NP=NPJ 
I  COUNT  =  2 

GC  TO  6  TO  , 

4  IF ( ITYP6( NPK ) «NE • 1 )  GO  TO  5 

MX  =  5 
NP=  NPK 
I C  OU  NT  =  3 
GC  TO  6 

5  l F ( NPL • EG .0 )  GO  TO  7 

IF ( ITYPEINPL ) .NE.  1)  GO  TO  7 
MX  =  7 
NP=  NPL 
l  C  OU  NT  =  A 

b  IF (ISrfTCH.EQ.l)  GO  TO  8 
IS WT  CH=  1 
DC  1  I  =  I »  NCR  0 
00  l  J= 1 1 NCRD 
IF(I.NE.J)  GO  TO  2 
C(  It J  >  =  1  -0 
GC  TO  .1 
2  C(I.J)=0.0 
l  BKBAR  {  I »  J  )=')  .0 


I 


8  NX- MX + 1 

C I  MX  »  MX  )  =  CCS  (  T  HF  l  At  NP  )) 

C(NX,MX)  =  SIN<THET  A(NPI) 

C( MX. NX )  =  -Cl  NX ,MX  ) 

Cl  NX ,NX »  =  C(MX t MX  ) 

GO  TO  ( 3 » A»5 » 9  )  t  1  COUNT 
7  IF (ISWTCH.EQ.O )  RETURN 

9  DC  51  J= 1  *  NOR  D 
DC  50  L=ltNORO 
VEC ( L i =0 .3 

OC  50  K= i » NORD 

50  */EC(  L  )  =  VF.C(L  I  +  8KI  It  K  )  *C(  Kt  J  * 

DO  5  l  1=  1 1  NORD 
BKBARI l » J)=0 .0 

DC  5i  L=1,N0R0  %.wcrtl  , 

51  BKBARU  ,J)*BKBARl  It  0)+CtL,  I>  VcCU  i 

OC  52  1=  l«  NORD 
DC  52  J=l*N0R0 

52  8KU  ,  J)  =  8KBA('(  I,  J) 

return 

END 


L. 


imaiwitiM  i 


oooooooooo 


85  A-U8 

C 

SU8R0JT  INE  DISTK(MAXNP,MXAUJP*BK»SNPUU»  SNPUW,  SNPWW,  SADLU  . 

1  SAOUW,S ADWU,S ADWW,NPI,NPJ,NPK,NPL,NPADJ,NPOUT) 

0! MENS  I CN  8K( 8,8  )  ,SNPUU<  MAXNP  ) , SNPUWI MA  XNP ) ,  SADUU ( MA XNP , MXAD JP >  , 
I SADUW ( MAXNP, MX ADJ P ) , SNPWWt M AXNP ) , SADWU( MA XNP ,M XAD JP I , 

2SADWW  (  MAXNP,  Mv  "  I P  ) ,  NPADJ  (  MAXNP ,  MXADJP  ) 

C 

C****  DISTRIBUTE  E„-rtcNT  STIFFNESS  TO  NODE  POINT  STIFFNESS 

3K  =  ELEMENT  STIFFNESS,  6*6  FOR  TRIANGLE,  8*8  FOR  RFC  T 
SNPUU  =  NODE  PT.  STIFF,  U-CIRECTION,  U-DISPL. 

SNPUW  =  NODE  PT.  STIFF,  tJ-CIRECTION,  W-DISPL. 

SNPWW  =  NODE  PT.  STIFF,  W-CIRECTION,  W-DISPL. 

SADUU  =  ADJ .  PT.  STIFF,  U-CIRECTION,  U-DISPL. 

SADUW  =  ADJ  .  PI.  STIFF,  U-CIRECTION,  W-DISPL. 

SADWU  =  ADJ .  PT.  STIFF,  W-CIRECTION,  U-DISPL. 

SADWW  =  ADJ .  PT.  STIFF,  W-CIRECTION,  W-DISPL. 

I C  QU  NT  =  I 

1  GC  TO  (2,3,4, 5,6), I  COUNT 
C 

2  NT  =  N  P  l 
NJ=NPJ 
NK=  NPK 
NL=  NPL 
MX  =  1 

LX=3  . 

LY  =  5 
LZ  =  7 

GC  TO  100 
C 

3  NI  =  NPJ 
NJ=NPI 
NK=  NPK 
NL=NPL 
MX  =  3 
LX=I 
LY=5 
LZ  =  7 

GC  TO  100 
C 

4  NI  =  NPK 
NJ=  NP I 
NK  =  NP J 

NL=MPL  '  '  ~  “ 

MX  =  5 
LX=  I 
LY=  3 
LZ  =  7 

GC  TO  100 
C 

5  IF (NPL.EQ.O)  GO  TO  6 
NT  =  NPL 

NJ=NPI 
NK  =  NP J 
NL=  NPK 
MX  =  7 
LX=  1 
LY=  J 
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LZ  =  5 

GC  TO  103 
6  RETURN 

100  SNPUUINI)=SNPUU(NI)+BK(MX,MX) 

SNPUWlNI  )  =  SNP‘JWINI  } +8K I  MX , MX ♦ 1 ) 

SNPWWl NI )  =  SNPWW<  N  I )  +  BKI  MX  +  1,  MX  •»  1 ) 

00  101  I=a,MXADJP 

J=  I 

IFUNPACJINI,  D-NPOUT  t.EQ.NJ)  GO  TO  1C2 

101  CONTINUE 

205  NPI=NPI+NPC'JT 
NP  J=  NP J  +  NPCJ  T 
NPK=  NPK*NPCJ  T 
lF(NPL.EC.O)  GO  TO  204 
NPL=  NPL+NPC'JT 

204  WRITE (6  *203)  NP I , NPJ, NPK , NPL , N  I  * NJ, N< ,NL ,NPUUT , 

1  (NPADJIM,  I)  ,  1=1,  MXADJP) 

201  FORMAT  (  1H1/32H  ERROR  IN  STIFFNESS  DISTRIBUTION// 

1  1 3  H  NP  I  =*  1 5/  13F  NPJ  -,I5/13H  NPK  =,15/ 

213H  NPL  =  ,  I5/10X, 515/10X, 815) 

CALL  EXIT 

102  SADUU  (NI,J)=SADJJ(NI,J  )+8K(MX,LX) 

SAOUWINI,  J)=S  ADJWINI,  J  / +8K I  MX , L X  +  1 ) 

SA0WUINI,J)=S  ADWJINI.  J  H-BKl  MX  +  1,LX> 

SADWWINI,  J)=S  ADWWlNI,  J  ) +BK  l  MX  ♦  1,  L  X<- 1 ) 

DC  103  1=1,  MXADJP 
J=  I 

IF  t  (NPACJIM,  D-NPOUT  J.EQ.NK)  GO  TO  104 

103  CONTINUE 
GC  TO  205 

104  SADUU  (  N I ,  J  )  =  S  ADJ  J  (  N  I,  J  )  +  BK  (  MX ,  L Y  ) 

SADUW  I  NI,J)=S  ADJWINI,  J  DBKI  MX,  LY  +  1) 

SADWU  (  NI,  J  )=S  ADWJ  (  N  I,  J  )  +  BKI  MX  +  1,L  Y) 

SADWWINI,  J  )=  S  ADWWlNI,  J  ) +8K  I  MX  +  l,  L  Y+ l ) 

IF (NL.EC.O )  GO  TO  105 
DO  105  1=1,  MXADJP 
J=  i 

IF  ((NPACJINI,  D-NPOUT  ).EO.NL  )  GO  T3  107 
10b  CONTINUE 
GO  TO  205 

107  SADUUTNl i  J)=S  ADUUlNI,  J  )*BK(MX,LZ  ) 

SADUWINI,  J)=S  ADJWIN1,  J  )+BK(MX,LZ  vl) 

SADWU  (NI,J)=S  ADWJ  (N  I,  J  ) +BK I  MX  *  1,  L  Z  ) 

SAOWWINI,  J)=  SAOWWINI,  J  )  +BK I  MX  ♦  l ,  L  Z+  1 ) 

105  1C0UNT=  ICGUNT  +1 
GC  TO  1 


END 

C 

C 

SUBROUT INE  M ASS  I M AXNP, RHO, R, Z , A l , XW ASS, $1 ,C  1  ,NP ! ,NPJ ,NPK ,NPL , 
llSTRES ) 


oooo  on  o  no  ooo  o  ooo 
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DIMENSION  R(MAXNP).ZfMAXNP),XMA$S(MAXNP  )  *  A  3  (23) 

C 

C***$  COMPUTE  ANC  DISTRIBUTE  MASS  POINTS 

GRAV  =  386.4 
C 

IF(NPL.'NE.O)  GO  TO  2 

TRIANGULAR  ELEMENT 

AJ=R(NPJ)-R( NPI ) 

AK=  R ( NPK ) -R( NPI) 

BJ=Z (NPJ)-Z( NPI ) 

BK  =  Z  (NPK)  'll  NPI  ) 

H=  AJ*BK-AK#fi J 
B=  BJ-BK 
A=  AJ-AK 

0U  Ml  =  RHC/H*GRAV 

AMI=DUMl*(h*AI(4)+6*AIi  13)-A*AI(  14)  ) 

AMJ=DUMl*(  6K«AI(  l3)-Ak*Al(  14)  ) 

AM  K=  Dd  Mp&T  'AT*  A I U  4 )  -B'T*AT  ('  1 3T  ) 

GC  TO  3 

rectangular  element 

2  AJ=R(NPJ)-R( NPI ) 

BJ=Z (NPJ)-ZTNPI) 

A=  SQRT ( AJ*AJ+BJ*8J  ) 

AL=R(NPL)-R( NPI ) 

BL=Z ( NPL ) -Z ( NP  I  ) 

B=SQRT ( AL*AL +BL*BL ) 

IF(ISTRES'.EQ.O)  GO  TO  4 

AMI=RH0*Al (4 )/4.*GRAV 
AM  AM  I 
AMK= AMI 
AML= AMI 

GC  TO  3  . .  ' 

4  DUMl=RHC/( l.+S 1+C1)<GRAV 

AMI  =  DUM1*(  (S  l+Cl)*AI(  4)-Sl*AI(  14  )/B-C  l*A  I  (  13) /A) 

AM  J=  PJ  M 1  *  (  A I  (  4  )  -  (  l.+Cl)*AI(  14)/B*C1*AI(  1  3  ) /A  ) 
AMK=DUMl*(-AI(4)+(  l.  +  Cl)*AI(  1 4  ?  /  B  +(  l.  +  Sl)*AI(13)/A) 
AM.L=OTrMr*(AI(  45+S  r*AT(  14J/B-(  1  .  +  S  i)*A  I  (  13)  /A) 


3  XMASS ( NPI )=X MASS ( NP I ) +AM I 
XMASS  (  NPJ)  =  X  MASS  (  NPJ  )  ♦  AMJ 
XMASS  (  NPK )  =  X  MASS  (  NPK  )  +  AMl' 
IF(NPL.EQ.O)  RETURN 
XMASS (NPL) =X MASS ( NPL )♦ AML 
RETURN 

END 


SUBROUT  I  NE  PRNK(  MAXNP,  MX  ACjP,  NADjNP  ,  NPAUJ  »NAD  JEL  ,  I  PR  I  NT  ,  SNPL'U » 


1SNPUW.SNPWW,  S  AUJJ.S  AC'JW,  SADWU,  SAOWW,  THE  TA  ,  I  TYPE , XMA S S , NPOUT , 
2NUMNP) 

0!  PENS  I  CN  NAD JNP «  MAXNP )» NPAOJ  (  MAXNP  , MXAUJP  ) ,NAD Jt  L ( MA  XNP)  » 
IXPASS  I  MAXNP)  ,  SNPULM  MAXNP  >,  SNPUM  MAXNP  )  ,  SNP  W  W  (  PA  XNP )  , 

2SADUU  (  MAXNP,  MX  AOJ  P  ) ,  S  ADUW(  V  AXMP ,  MXAOJP  )  ,  SAD  WU  (  MA  XNP  ,  M  XAD  JP)  , 

3  S  ADWW  (  MAXNP,  MXAOJP),  T  HET  A(  MAXNP  ),  ITY>E(MAXNP) 

IFUIPRINT. NE. 2). AND. (  IPRIMT. ME. 99MG0  TO  15 

WR  ITE(6, 1  ) 

1  FORMAT (lHltlbHSr 1FFNESS  TAHL6S//6H  M3DE»8X,6H  SNP  UL  .AX, 
16HSNPUW  , 8X , 6 HSNPWW  //) 

DC  2  I  =  1 ,  NUMNP 
K=I  +  NPOUT 

2  WR  I T  E I  fa  *  3 )  K  v  S  NPJU  (  I ) ,  SNPUW  (  I  ),  SNPWWI  I  ) 

3  FORMAT  (  15, 3X  ,  IP8E14.4  ) 

W  R  I T  F  ( fa  » 4  ) 

4  FORMAT ( 1H1 , 18HflDJ  AC  ENT  ST  I  FT  N  E  SS // ) 

WR IT  E ( 6  »  5  ) 

5  FORMAT (6H  '  NODE,  10X, 5PSADUU// ) 

DC  fa  1=1, NUMNP 

NUM=  NAD JNP (  I  ) 

K= I ♦ NPOUT 

6  WR  I T  E  ( fa  ,  3  )  K  ,  {  S  ADUJ  I  I ,  J  )  *  J  =  1*  NUM  ) 

WRlTE(fa,4) 

WR IT  E ( fa  ,  7  ) 

7  FORMAT  { 6H  NODE,  LOX  ,  5FS  AOUW// ) 

DC  8  1  =  1, NUMNP 

NU  M=  NAD  JNP  (  I  ) 

K=  I+NPOUT 

8  WR  IT  E  I  6 , 3  )  K,  (SADUWI  I,  J  ),J=l»NUM) 

WRITEIfa ,4) 

WR IT  E ( 6,9  ) 

9  FORMAT  (faH  NODE,  10X,  5FSADWU//  ) 

DC  10  1=1, NJ MNP 

NU  M=  NAD  JNP  (  I  ) 

K=  I  +  NPGUT 

10  WR  I  T  E  >.  fa  ,  3  )  K  ,  (  S  AUWU  (  I ,  J  ),  J=  1,  NUM  ) 

WR IT E ( fa , 4  ) 

WRITEI6, 11) 

11  FORMAT  (6H  NODE,  10X  ,  5HS  ADWW//  ) 

DC  12  1=1,  NUMNP 

NU  M=  NAD  JNP  {  I  i 
K= I + NPOUT 

12  WRITE (fa,  3)  K , ( S  ADWW (  I ,  J ) , J  =  1, NUM  > 

15  IFU  IPRInT:NE«4)  ,ANC.(  IPRINT.ME.99)  K  E  T  UR  N 
WR I T  E ( 6 , 1 3  ) 

13  FORMAT ( 1H1.23HMASS  VECTOR,  LB  SEC2/IM//6H  NODE//) 

DC  14  1  =  1,  NUMNP,  8 

L=  l  NPC  r 
NU  M=  ’ 

IFl  .  (IT.  NUMNP)  NUM=NJMNP 

14  WR  l  T  fc  (  6  »  3  )  L,  (  X  MASS  (  J  ),J=  I, NUM  ) 


■»  W'KTK**  p 


yaH  j*  ^f.i  -mm^h  uiw  wgy  t.  »py  m  yw  T&zm%&*3®ir.  nmwjv-Zf?^ 


.  RETURN 

C 

C 

- ENE - - 

C 

c _ 

OVERLAY < MOHAN, 6,0  ) 

PROGRAM  LNK1F 

camDN-HSX Np ,  MX  CL S ,  MX  'A'DJ  P ,  M  X ZO^E,  MX'WPB  ,’NZ0NE'57KWC5  ,  RUtfRP-, - 

1  NUMEL.  ISTRES,NUMPEL,NUMELP, PERIOD, NMKCLS, FACTOR, ALAMB, 

2  KT  APE , KRJN,  I  PR  IN T ,NUMST , MXSTRT, I ELA ST( 2 C) , I PLA ST < 20)  , 

'  ~  ~  3WGTT70T,  NST  ART  {T^rrETTT,'2r01,“TFELTP~riNT,NP^'CD'SlTffPB  ^ . 

C 

DIMENSION  C(4,4) 

-(jy Ht NS  I Uisnwcrj T7^FATJT  350TB ) /NAITJEUnWl -  "  ' 

DIMENSION  R(  3  50  )  *  Z  (  350),  ITYPEf  3  50),  THETA!  350) 

C 

DTi^ETOroNnrnTPirr47i^Trr,inrNPHT‘4, 3 sot  ,'st/tdu c'4  ,?51jT8t , 

1ST  ADW ( 4 ,350 , 8  ) 

C 

T  «  «  ITT  IT  I A  LTZ'E - 

M0HAN=5HM0HAN 
REWIND  4 

REWI  ND~8 - -  - - 

REWIND  12 
REWIND  3 

~~r - - -  ■- 

KE  ND=0 
NP0UT=0 

■ . MTMO^U  '  ■ 

NUMNPB=0 
NPR=  MXNPB 

__T  ~ — 

c 

C****  ZERO  OUT  BUFFER  REGION 

x -  ■  . . . 

l  IS WT  CH*  1 

GO  TO  900 _ _ _  _ _ 

C**»*  READ  IN  FIRST  RECORDS 
C 

-2-  j  p  TWJHRFi  LT7WX  NPFT' WHNFBsNOMNP  - 

IF (NUMNP.GE. MXNPB)  NUMNPB=MXNPB 
DO  3  I* l,NUMNPB 

RESUITT  NFTTTraEJEfPTITTTOJ  F. (  I) ,  ( NP A D J (  I ,  TTTJ  =  1  ,HXAD  JPT - 

RE  AD  (4)  NPN,  R  (  I  ) ,  Z  (  I),  ITYPE(  I  ),  THETAI  I  ) 

3  CO  NT  INUE _ 

IC0UNT=O 

4  READU2)  KEY  »  NUME,  IZONE,  NT  I,  NTJ ,  NTX  ,NTL  ,NCRACK  , 

- mrrn  jt,  nnT4Trj= 1 , 4  jvk  as  e,  s  1,  c  1 - 

IC0UNT»  I  COUNT 

LNP*  MAXO  (  NT  I ,  NT  J^NTK,  NTL  ) 

IF U LNP-NPOUT ).GT. MXNPB)  GO  TO  100 
C 

C - S'UFT  rCTFNr_frUOM_l'N  BU  FF  ER  R  C-GIOTJ - 

C 


6  NPI=  NT  I  “NPOUT 


o  o 


NP  J=  NT  J-NPCJT 
NPK=  NT  K-NPCJ  r 
I  F  I  NT  L  .  EQ.O  )  NPL  =  0 
IF(NTL.NE.O)  NPL =  NT L-NPOUT 

CALL  STRESS! MXNPO,MXACJP,C,NP 1 ,  NP J ,  NPK , NPL , R , Z ,KA SE , N GME  » NPAD  J  , 

1  STNPU,STNPW,STAD’J»ST  ADW,  ISTRES,  S  l,  C  1 ,  NPQU T  ,  I  T  YPE  ,  THE  TA  ,  NC  R  AC  K ) 

C 

IF  { ICOUNT  .  LT  .NJMFL  )  GO  TO  A 
KE  ND=  1 
KE  Y=  NJ  M\P  + 1 
C 

C****  INSUFFICIENT  ROOM  IN  BJFTER  REGION 
C 

100  NU MC P=  KEY- 1 

NU  MNPB=  NU  MCP-NPOU  T 
C 

C  NCOIFY  STRESS  TABLES 

113  CALL  MODSIMXNPB,MXACJP,NAOJNP,NPADJ,NADJEL,STNPL,STNPW, 

l  ST  ADU  t  ST  ADW  ,  l  PR  I N’  ,  T NET  A,  I T  YP  E,  NPUU  T,  \1  UMNPB  ) 

C  WRITE  STRFSS  TABLES  ONTO  TAPE  3 

C 

DC  LOT  I = i » NO  MNP  B 

101  WRITEI3)  I , NADJNPI  I  )♦  NADJ  FL  (  I  )»  (  NPADJ  (  I  » J  )  *  J  =  1  »MXAD  O'*  -  (  STNPU  (  K  *1  ) 
l,STNPW(K,n,K=l,4),((  STAOUIK,  !,  J  ),  S  TAOW  ( K ,  I  ,  J  >  ,K  =  1  ,4)  ,j  =  l  ,MXADJP> 

IF (KEND.EG.l )  RETURN 
IF (KEND.EG.l )  RFTURN 
C 

C  MOVE  UP  INCOMPLETEL'  NODES  IN  BUFFER  REGION 

NP R= MX  NPB-NJ  MNPB 
GC  TO  902 

C  ZERO  REMAINING  BUFFER  AR  F A 

107  ><X=NPR+1 
WT  CH= ? 

TO  '1,0 

^0  N  REMAINING  NODE  POINT  AND  ADJACENCY  DATA  TO  FILL  in  BLfFFR 

1  IF  (  (NUMNP-NJMCP)  .LT  .MXNPB)  K NP  =NUMNP -N UMC  RPR 

IF ( ( NUMNP-NJMCP) .GE. MXNPB)  K NP =M XNP B-N P R 
DC  109  1=1,  KNP 

L=  NPR+ I 

READ  (9  )  NPN,  NADJNPI  L  ) ,  N  ADJ  EL  ( 1  ) ,  ( NP  ADJ  (  L  ,  J  )  ,  J  =  1 ,  M  XAD  JP ) 

READ  (4)  NPN,  R(L  )  ,Z(  L  ) ,  ITYPEIL  ),  THETA  (L  ) 

109  CONTINUE 

NPOUT=  NUMCP 
GC  TO  6 

C****  TRANSFER  PART  OF  NODE  BUFFER  REGION 
C 

902  DC  903  K= 1 , N PR 
L=  -  MNPB  +  K 
NADJNPI *)=NADJNP( L  ) 

NADJELI K )  =  NACJFL( L  ) 

ITYPEI  K)=  ITYPEI  L  ) 

THET  A( K )  =  T  HET  AIL  ) 

R(  K)  =  R  I  L I 
Z  I  K)  =  Z  I  L ) 

DC  904  J=  1 , 4 

STNPUI J,K!=STNPJ( J,L ) 

904  ST NPW ( J , K ) =S  T  NPW ( J , L ) 

DC  903  J= 1,MX ADJ  P 
NPADJI K,J )=NPAUJ I L, J ) 


oooooooooooooo  o  oonooo  ooo 
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DC  903  1=1,4 

ST  ADU  ( l » K , J )  =  S  T  AUU (  I »  L »  J  ) 

903  ST  ADW  (  I » K,  J )  =  $  T  AOW I  l»  L,  J  ) 

C  . . 

GO  TO  107 

I 

****  ZERO  OUT  “BUFFER  REGION  SECTION  : 

900  DO  901  L=KX»  MXNPB 


NADJEL ( L )=0 
IT  YPE  ( L  1=0 
THETA(U=0.0 
R(L)=0.0 
Z(L>=0.0 
DC~905  0=174 
ST  NPU  (  J » 1. )  =0 . 0 
905  STNPWI  J,U=0.0 

DC  901  J=  1 ,  MX  ADJ  P 
NPADJIL, J)=0 
DO  901  1=1,4 
STADUTT7r73T=0.0  ' 
901  STADWUiL,  J1  =  0.0 

GO  TO  (27108  J ,  ISWTCH 


“  ENT) 


SUBROUT  I NE  S T RESS < M AX NP, MX AD  IP, C ,NP I ,NP J,NPK,NPL ,RA , ZA , KA SE , NOPE , 
lNPADJ,STNPU,STNPW,STAGd,STAOW,  IS TRE S, S 1 ,C l , NPO UT , I T yPE , THE TA  ,  . 

2  NC  RAC'kT 

DIMENSION  C( 4  » 4 ) »  RAI MAXNP I, Z A(  MAXNP I  ,NP ADJ < MA XNP , MX4D JP)  ,S(4,8»  , 
1STNPU(4,MAXNP),STNPW(  4, MAXNP ), STADUl 4, MAXNP ,MXAp JP ) , 

2STADW(4, MAXNP, MXADJPI,  ITYPE(MAXNP),  THETA(MAXNP)  1 

DIMENSION  S8ARI  4,  0  I,  CBAR(  8,  8 ) 

■  COMPUTE  NOCE  POINT  ST RESS-D ISPLACEMENT  RELATIONS 


C  =STRE$S-STRAIN  MATRIX 

S  '  '  ‘  ~=3TTTE$3 -DTTRjSTTEMPTT  MATS  IX'  FOR  ELEMENT 

STUI  =  RADI  AL  STRESS,  SIGMA  R 

ST  (2  )  =  MER  ID  1 ONAL  STRESS,  SIGMA  THETA  ■ 

ST  (3  )  =VEPTI  CAL  STRESS,  SIGMA  Z 
ST (4)  =$HEAR  STRESS,  TAU 

ST  (II  *STNPJ  (  IV*UVSTNPrf(  I  )*W*SUM(  STADUI  I  )*  U+STAD  Mil  I  ♦  W) 

DO  1  1=1,4 
DO  1  J= 1 ,8 
1  S(I«J)*0.9 

RR=RA(NPn 

R=0. 

RP*0. 


o  o  o 


I 


I 


i 


'  92 

z=o. 

,  ZP=Oi 
I  COUNT  =  1  ^ 

c 

,  IFCNPL.NE.O)  GO  TO  200 

TRIANGULAR  PLEKENTS 

AJ=R.MNPJ)-RA(NPI  ); 

AK=  RA ( NPK ) -R A ( NP  I  I 
BJ=ZA(NPJ)-7  A  (  NP  I  I  i 

BK=ZAtNPKW  A(NPI  ). 
h=  AJ*8K-AK*RU  1 

i  B=  B  J-BK 
A=  A  J-AK 

25  IFIKASE.NE.l  i  GO  TO  26, 
IFUSTRES.NE.O)  GO  TO  27 
AOR= l .  / RR 
RCR=  k/  RR 
ZCR=Z/RR_ 

GO  TO  28 

27  IF ( I  COUNT •  NE  •  1 1  GO  TO  100 
ACR-0.0  i 
RCR=0.0 
ZOR=  0.0 
2  8  DUMl  =  B/H  i 

:DU M2=A0R+<  G^ROR-A+ZOP. 

DO  35  1=1*3 

35  S(I»l)  =  C(l.l  )*DJMUCi  I,2)*DUM2 
S(4,l)  =  -C(4,4i*A/H 
GO  TO  29 

26  RCR=  l  •  0 

IF  tKASE.NE.2  )  GO  TO  30 
I F ( I COU  NT  .  NE • l )  GO  TO  31 
Z0K=0.0  i 

GO  T  0  -  29 
31  IZ0R=Z/RR 
GC  TO  29 
30  ZCR=0.0 

IF  II  COUNT  »NE  •  1 )  GO  TO  100 
29  DO  36  1=1,3  , 

36  S(I,2)  =  -CU,31*A/H 
S(4,2)=C(4,4)  *B/H 

■  DU  Ml  =  BK/H 

DU  M2  -  (  BK*RCR- AK*Z  OR  )/F 
DO  37  1*1.3  * 

37  S(  I,3)  =  C(l,n*DJMl*C(  1.2  )*OUM  2 
DUM1  =  AK/H 

S  ( 4 . 3  I  .* ~C(  4.'4  )  *DJ  Ml  , 

DC  38  1=1.3 

38  S  (  I  .4  )  =  -Cl  1.3)  *DJM1  , 

S(4»4)=C(4,4 ) *BK7  H 
OU  Ml  =  A  J/  H 
DO  39  1=1.3 

39  Sn.6)  =  C(  I,3)*DJMl 
S(4»5)=-CI4,4 I*BJ/H 
IFIKASE.EO.30  GO  TO  300 
DU  Ml  =  -  B  J/  H 

DU M2=  {  AJ*ZCR-BJ*RO,R  >/F 
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DC  40  1=1,3 

40  S  ( I  ,5 )  =  C( 1, I  )*0JMUC(  1,2)*DUM2 
S(4,5)=C(4,4)*AJ/H 
GU  TO  300 

RECTANGULAR  ELEMENT 

200  AJ=RA(NPJ)-RA(NPI ) 

BJ=Z A( NPJ ) -Z  A( NP  [  ) 

A=  STQRT  rST^TJTBJ^BT)  ” 

AL=RA( NPL ) -R A<  NP l ) 

BL=Z A( NPL) -Z  A( NP I > 

B=  S'QRTT  AL*AL+BL*BL) 

H=  A*B 

50  T  F  IKBSTT .  NFi  4T  "GU"  T  0  5T~' 

IF  { ISTRES •  NE.O  )  GO  TO  52 
AOR=I./RR 

ROR=RP/RR 

ZCR=ZP/RR 

I F (NCRACK. EQ.O )  GO  TO  53 
H=  A  ~  ' 

A0R=0.0 
B=0.0 
GC  TO  53 

52  A0R=0.0 
RCR=0 .0 
■ZORa“ir.D“ 

I F (NCRACK. EQ.O )  GO  TO  53 
H=  A 
8=0.0 

53  DU  MI  =  (  RP*S  1+Z  P*C1-A*S  l-B*CI)/H 
DUM2=A0RM  ROR*ZP-B*ROR-A*ZOR  )/h 
DO  55  f=r,3 

65  S(  1,1  J  =  CU,I  )*OJMUC(  !,  2)*DUM2 

S(4»l)  =  C(4,4)*( B*SI-A*C1+RP*CI-ZP*S1)/H 
GC  TC  54 

5 1  I F (KAS  E.EQ.5 )  GO  TO  73 
ROR=  i  . 

ZCR=0. 

I F (NCRACK*  EQ.O)  GO  TO  54 
H=  A 

A0R=0 .0 
B-O.O 
GC  TO  54 

73  iFaxrauTjT.NF.rr  go- to  74 

R0R=CI 
Z0R=S  l 
GC  TO  54 

74  RORsRP/RR 
ZCR=ZP/RR 

'  ~54  DUHI  =  rB^ST-A *Z T+  RP*Cl  -ZP*S 1 )/H 
DO  66  1=1,3 

66  SU,2)  =  C(I,3)*DJMl 

S(4,2)  =  CI4,4)*<RP*S1+ZP*C1-B*CI~A*SI)/H 
DU  Mi  =  (  B*Cl-RP*S  l-ZP*C  1  )/H 
DUM2=  (  B*RQR-RQR*Z  P  )/H 
DO  67  1=1,3 

6  f  SU,3)  =  CII,n*DJMUC(  1,2  )  *OUM  2 
DUMl=(-B»S  l-RP*CI+ZP*Si)/F 
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S(4*3)=C(4*4) *OJM  1 
00  68  1=1,3 

68  St I»4)=C( 1,3) ♦DJM 1 

S  (4,4  J  =  CT4 , 41  «T8*a -K P*S  1-Z  P *C  1)  /H 
DUMl=(RP*Sl+ZP*Ci)/H 
DU  M2  =  R0R*Z  P/H 
DO  69  1=1,3 

69  SU,5)  =  C(1,I)*0JM1+C(  I,2)*0UM2 
DUM1=  (  RP+Cl-Z  P*S  1  )/  H 

S  ( 4 » 5'T="CT  4 , 4  7  *Dj7Cl 
OC  70  1=1,3 

70  S(I,6)=C(I,3)«DJM1 

S(4,6)  =  C(4,4)*(Z  P*C  1+RP*S  1  )/H 
DUM1=  (  A*C1-RP*CUZP*S1)/H 
00  71  1=1,3 

71  S  (  I » 8'J  =  C~(  I  *  3  )  *D’JM  1 
$(4,B)=C(4,4)*t A*S1-RP*SI-ZP*C1)/H 
IF (KASE.EQ.6 I  GO  70  300 

S(4,7)  =  C(4,4)*DJM1 
DU Ml=  (  A*SL-RP*SI-ZP*C1)/H 
l)UM2=(  A*ZOR-ROR*ZP)/H 
OC  72  1=1,3 

72  St  I,7)  =  C(1,I  )*OJMI+C(  I,2)*0UH2 
MOOIFY  S-MATRIX 

300  ISWT  CH=0 

IFtITYPEtNPI ) • N E •  1  >  GO  TO  303 

PX=1 

NP=  NPl 

KC  OU  NT  =  1 

GO  TO  306 

303  IF  1 1  TYPE  t  NPJ  ) .NE  •  l )  GO  TO  304 
MX=  3 

NP=  NP J 
KC  OU  NT  =  2 
GO  TO  306 

304  IF (ITYPEtNPK ) .NE.  1)  GO  TO  306 
PX=5 

NP=NPK 
KC  OUNT=  3 
GC  TO  306 

305  IF(NPL.FO.O)  GO  TO  307 
iFtlTYPE(NPL).NE.l)  GO  TO  307 
MX  =  7 

NP=NPL  ' 

KC  00  NT  =  4 

306  IF(ISWTCH.EO.l)  GO  TO  308 
I S  WT  CH=  l 

DO  301  1=1,8 
00  301  J= 1 ,8 
IF(I.NE.J)  GO  TO  302 
CBARt I, J)=l.O 
GC  TO  301 
302  CBARt I , J)=0.0 

301  CONTINUE 

OC  312"  1=1,4 
DO  312  J= 1 ,8 
312  SBARt I , J)=0.0 
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308  NX=  MX  + 1 

CB  AR  (  MX  ,  MX  )=  COS  (  T  HET  A(  NP  )  ) 
CBARrNX7WXT=S  I NCTHET ACNP)  J 
CRAR ( MX  »  NX )  = -CBAR ( NX, MX  J 
CBAR( NX  , NX )=  C6AR( MX, MX) 

GOTO  (303,304,305, 309), KCOUNT 
307  IF(ISWTCH.EQ.O)  GO  TO  100 
C 

309  DC  3  TO  T=TT4 -  ‘ 

DC  310  J= 1 ,8 

SBAR(I , J)=0.0 
DC  313~J^,F 

310  SBAR( I , J)=SBAR(  I , J  )  +S (  I, <  )*CBAR( K, J  ) 
C 

DO  '31T"T=TW . . . 

DC  311  J= 1 ,8 

311  S(I, J)=SBAR( I, J) 

DISTRIBUTE  S-MAIRIX 

100  IT  (I  COUNT.  NT.  I )  GOTO  101 
MI  =  1 
MJ=3 
MK=5 
Ml  =  7 
NI  =  NPI 

NJ=~NPJ  - “ 

NK=  NPK 
NL=NPL 
GO  TO  103 
C 

101  IF (I COUNT . NEo2)  GO  TO  102 

MI  =  3  '  . 

MJ~  1 

MK=5 
ML=7 
NI  =  NPJ 
NJ=NPI 
NK=NPK 
NL=NPL 
GO  TO  103 
C 

102  IF  (I  COUNT.  NF.  3)  GO  TO  10  7 
MI  =5 

MJ=l 
MK=*3 
ML=7 
NI  =  NPK 
NJ=NPI 
NK=  NPJ 

Nl="NPE - 

GO  TO  103 
107  MI =7 
Mj=  1 
MK  =  3 
Ml=5 

ni=npl“ 

NJ=NPI 
NK=  NP J 


103  00  114  1*1.4 

STNPU  C  I  »  NX  )=S  TNPJ  (  1,  N  I  ) +SI  I,  M  I  ) 

114  ST  NPW  (  I »  NI )  =  S  T  NPW  (  I,  N  I  ) ♦$(  l»  M  I  4  1) 

N=  1 

155  GC  TO  1150,151.  15?.  153). N 

150  NN=NJ 

i  MN=MJ 

i  GO  TO'  154 

151  NN=NK 
MN=MK 

GO  TO  154 

152  IFINPL.EQ.O)  GO  TO  153 


NN=NL 

MN=ML 

154  DO  104  K= 1 » MX  ADJ  P 
J”  K 

IF ( ( NPACJINI , K J-NPGUT  )  .EQ  .NN  )  GO  TO  105 

104  CONTINUE 

109  WRITE  (6  » 106)  NUME.N  I.  N,  NPQUT 

106  FORMAT ( 1H1/30H  ERROR  IN  STRSS,  STATEMENT  104/ 

1 13 H  ELEMENT  NO.=,I5/13H  NQDF  POINT  =,I5/13H  N  =,15/ 

213H  NPOUT  =  , 15) 

.CALL  EXIT 

105  DO  115  1=1,4 

STADUU,NI,J)  =  STACJ!  I ,  N  I.  J  »  +SI  I ,  MN  ) 

115  STADWI  I  ,NI  ,J  )  =  STACW(  l , N  l » J  )  4SII , MN4 1) 

N=  N+l 
GC  TO  155 

153  GC  TO  ( 110 ,1  l  1,  1 12,  113),  ICOUN  T 

110  I  COUNT  =  2 
RR=RA( NPJ ) 


X 


x 

3 

j 


mi 


R=  AJ 
Z=  B  J 
RP=  A 
ZP=0.0 
GO  TO  120 

111  IC0UNT  =  3 
RR=RA( NPK) 

R=  AK 

Z=  BK 
RP=  A 
ZP=  8 

120  IFINPL.EQ.O)  GO  TO  25 
GQ  TO  50 

112  IFINPL.EQ.O)  RETURN 
I C  OU  NT  =  4 

RR=RA(  NPL ) 

RP=0.0 

ZP=B 

GC  TO  50 

113  RETURN 
ENO 


C 

c 

C 


SUBROUT INE  MODS ( M AXNP, MX ACJP, NAOJNP , NPAOJ ,NADJEL , STNPU, 3TNPK  , 


-4 


o  o  o  o  o 


WVO  T  ^VT"  VJ  ''  v 


g  rj  a-6o 

1ST  A0U»ST ADW,  I  PRINT1,  THETA,  ITYP E, NPOUT,NUMNP  ) 

01  MENS ICN  NADJNP!  KAXNP ) , NPADJ ( MAXNP , M XA DJP ) .NADJELlMA  XNP)  , 
ISTNPU(4,MAXNP),STNPW{  4, M AXNP J , S T AOU ( 4,MAXNP ,MXADJP) , 

2 ST  ADW  !4  *HAXNP ,  MX  ACJ  P  )  *  T  HET  A!  MAXNP  ),  ITYP  E (  MA  XNP  ) 

DO  2  I  =  1 ,  NU M N  P 
DU  M= NAOJEL ( I ) 

DO  1  K=l,4 

STNPUIK,  n=STNPJ(K,  l  ) / DUM 

1  STNPW<K,l)=STNPW{K,  D/OUM 
NU  M=  NADJNP  ( I  ) 

DC  2  J=1,NUM 
DO  2  K=  1 ,4 

STADUtK,  I,  J)  =  STADU(K,  I,  J  }/OUM 

2  STADWlK,  I,  J)  =  STAOW(K,  I,  J  )/DUM 

IF  UI  PRINT  .NE.3).AND.(  IPR  INT  .ME  >  99 )  RETURN 
WRITE! 6,3) 

3  FORMAT  (  1H1,1  3HSTRESS  TABLES//6H  NODE  ,  8X,  6H STR NP  U ,  8X  ,  f>H  S  TRNPw  , 
18X,6HSTTNPU, 8X,6HSTTNPW, 8X, 6HSTZNPU, 8X, 6HSTZNP  W, 8X,6H  ST  SNPL ,8  X , 
26HSTSNPW// ) 

DC  4  1  =  1 ,  NUMNP 
L=  I  +  NPOUT 

4  WRIT  E (6,5)  1,  (STNPJIK,  I ),  STNPWl K,  I ) ,<  =  1,4 ) 

5  FORMAT!  15, 3X,  1P8E14.4) 

WRIT E(6 ,6 ) 

6  FORMAT ! 1H1 ,22HADJ ACENT  STRESS  TABLES//6H  NODE , 1 0X,6H STRADU/ 
116X»5H5TRACW  / 16X , 6FSTTA0U/  16X, 6HSTTADW/16X , 6H STZADU/ 
215X,6HSTZACW/  16X  ,  6HSTSADI!/ 16X,  6HSTSADW//) 

DC  7  T=  I',' 'NUMNP 
L=  H-NPOUT 
WR IT  E ( 6  »S )  L 
NUM=  NADJNP!  I  ) 

DO  9  K=  1,4 

WRITE!  6, 8)  !  S  TADJIK,  I,  J  ),J=i,NUM  ) 

9  WRITE(6  ,8  )  !  S T ADW ! K,  I,  J  ) ,  J  =  1,  NUM  ) 

8  FORMAT !8X, IP8E14. 4) 

7  CONTINUE 

RETURN 


END 


OVERLAY ! MOHAN, 7,0  ) 

PROGRAM  INK l G  "  ~  ~ 

COMMON  MAX NP, MX CLS, MX ADJ P, MXZON E, MXNPb , NZONE S*  MXPE  L3 , NLMNP , 

1  NUMEL,  ISTRES,  NUMP  EL ,  NUMELP  ,  PEUOD,  NMKCLS,  FACTOR,  ALAMB, 

2  KT  APE, KRJN, IPR INT, NUMST, MXSTR T, IELA  ST!  20  ,  IPLA  ST  (20)  ♦ 

3  WGT  ( 20  ) ,  NST  ART  (  79  ) ,  E  I!  5,  20  ),  IP  EL  T®  ,  INT  ,NPRCD  S ,  I  MP6  X 
DIMENSION  FA  J  {  1600  ) »  F  Ad !  1600  ),R(  1600  ) ,  Z  (  16C0)  ,  I  TYPE  ( 1 600)  » 

l  THET  AT  1600 } » NPTP  {  1600  T,  ANAME!  18  ) » CPRE S S ( ICO,  3)  ,PRESSU(100)  , 
2PRESSW(iOO),NPLOAD(  100), U(  1600),  W(  1 600  )  ,NPAD  J  t  8 )  ,  SAD  UU  (  8  )  , 
3SA0UWI8 ),SA0WJ(8 ) ,S AOWW!  8  ),PLOADU( 1C0),PL0ADW( 100) ,UDI SP (100)  , 
4WOISP(lOO),NPOISP<  ICO) 

ECUIVALENCE(U,R),  U,Z  »,  (  PLOAOU,  PRESSU,  UDi  SP  ) , 
l  ( PLOADW, PRESSW,WOISP  ),  ( NPD I SP , NPLOAD ) 

M0HAN=5HM0HAN 

REWIND  8 

DC  6  1  =  1, NUMNP 


^T'1  Ur^U^'^W 


•vmmp^TSF* 


mmmmmjm  mm  asswwwp 


S  B  A-6l 

6  RE  AD (3  )  J»R(1)»R{  1)*(R(K.)»K  =  1,  MXADJP  ) 

RE  AD  (3  )  NJjlNPLOADI  I),NPLOAD(  I),NPLQAD(  IS ,  NPL0A3  (  I)  ,  NPLOAD  I !)  , 
1NPL0A0II), 1= I  *  NJ  > 

'  ftewrfi'TTFOTWPTPn  ),  1  =  1*  MUMMP  ) 

REWIND  8 
WR IT  £ ( 6  » 2 ) 

2  FORMAT ( 1H1 »2 lHAPPLlFD  PRESSURE  DATA//) 

RE AD 1 5  »  3 )  MINES 

3  FORMAT (1413) 

WR IT  E (6 ,4)  NUNES 

4  FORMAT (26H  NO.  OF  PRESSURE  SUR FACES =, I  5 // ) 

REWINO  4 

DO  5  I=1,NUMNP 
FAU ( l ) =0 .0 
FAW ( l )=0.0 

5  RE  AD  1 4  »  N,R(I  ),Z<  l),  tTVPEI  t),TF£TA<  I  ) 

REWIND  4 

C 

IF(NLINES.EQ.O)  GO  TO  20 
DO  19  I L I  NE= 1 ,  NL INES 
RE  AD  (5  ,8  )  LOADNPt  ANAME 

8  FORMAT  (~15*  1&  A4  ) 

WR IT  E ( 6  ,9  )  ANAME,  LOADNP,  IL  INE 

9  FORMAT (//18A4/20H  NO.  OF  NODE  PO INT S  =  » I  5, 1 2H  ON  SLRF ACE  ,  I  5 // > 

WR IT  E ( 6  » 1 1 ) 

11  FORMAT (5H  NODE, 10X, 6HPRESSU,  14X,  6HPR  ESSW  / 1 6X, 3HP  SI ,1 7X,3HPSI //) 

DO  7  1=1, LOADNP 

READ (8 , 13)  NPLOAUl  I  ),  PRESSUI  I  ),PRESSW(  I  ) 

10  FORMAT ( I5,2EL0.0  ) 

7  WR  I T  E  ( 6 , 12  )  NPLOADI  I  ),PRESSU(  l  ),PRESSWU  ) 

12  FORMAT ( IS, 1P2E20.5) 

DO  13  1=1, LOADNP 
NP=  NPLOADI  i) 

H  NPLOADI I)=NPTP(NP) 

CALL  COEFI MAXNP.NUMNP, LOADNP,  NPLOAD, CPR ESS, R, 7 ,1 STRE  S) 

DO  14  1=1, LOADNP 

£*#*****%♦  ****<!**]**■♦**#$*******$$♦**#*  ***********  ***************  **$$«*** 

IF(I.EQ.l)  GO  TO  16 

DU MU=  PRESSU I  I  —  1 ) *CPRESSI  I, 1) 

DU MW=  PRESSW I I-i )*CPRESS(  1,1) 

GO  TO  15 

16  DU  MU  =  0 . 0 
DU MW=0 .0 

15  DUMU=OUMU  +  PRESSJ(  l)*CPRESS(  I,  2) 

DU  MW=  DU  MW  +  PR6SS  H I  I)*CPRESS(  i,  2) 

IFII.EQ. LOADNP)  GO  TO  17 
DUMU=0JWJ+PRESSJ(  I  +  i)*CPRESS(  I,  3) 

DU  MW=DUMW  +  PRESSW  (  I  +  l)*CPRESS(  I,  3) 

£***$***********$****$***  ******$**$**<,#*<1***<!**<'*<t*******,t,*<:*********1*** 

17  NP=NPLOADI  I) 

FAU(NP)=FAU( NP ) +DUMU 
F  AW ( NP )  =  F AW ( NP ) +DUMW 

14  CONTINUE 

19  CONTINUE 
C 

20  WRITE (6  ,21 ) 

21  FORMAT  I IH1,22HC0NCENTRATEC  LOAD  DATA//) 

READI5 , 3)  MINES 

WR  IT E  (  6 , 22  )  NUNES 

22  FORMAT (22H  NO.  OF  LOAD  CLUSTERS  =  ,  15/ f ) 
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99 


c 

IF ( NL I NES * EQ.O  )  GZ  TO  tb 
C 

oo  28"rrmF=r,ML  z'cs~  ■  - 

RE  AD ( 5 , 8  )  \r  »,DNP,  ,-  NAME 
WRITEI6,23)  ANAME. LOACNP,  IL  INE 

23  FORMAT I//18A4/14H  NO.  OF  N0DES  =  »  15,  21H  IN  LOAD  CLLSTTR  NO.  rib//) 
WRITE  •=6*24) 

24  FORMA)  (5  H  NODE,  10X,  5HLOADU,  15X,  5HLOADW/lc  < , 3HLB S , 1 7X , 3HL8 S / / > 

or.  i8““i»'rrcnws w . 

Rf  .015,  JDI  NPLOADI  U,  PL  Q  A  DU  I  I  )» PL3A0WI  I  ) 

18  W  r  E 1 6  <  12)  NPLOADI  I),  PLOAOUII),  PL3ADWI  I  ) 

C 

l  *  I-..LO*ONP 

NT.  -  •  .Oft  ,{  n 

NPI  jAO'I  r  ,*K~  r  K  , 

NP- it^LOADI  r 

FAU(NP)  =  f  .  *P)  +  PLOADOI  i  ) 

25  FAKT-P)  =  FAfll  { NP  I  +  PLOADWI  I) 

C 

28  CCNTIf1;  " 

26  DO  27  1- i , MJMNP 

I F  (I  TV  PEI  n.NE.n  GO  TO  21 

DUMU=  F  All  I  I  )  *COS  I  T  HEf  A(  1 1  |«FAM<  I  M>StN€  THETA  (1)1 
DUMW=-FAUC  I)  *S  INI  THETA!  DI+FAWl  I  )*COSI  THE  i  A  1 1  }  ) 

FAUII)  =  DUMU 
FAWin  =  CUMW 

27  COWI-NJE - - -  ‘ 

C 

DC  29  1=1,  MJMNP 
U(  I » =0 -0 

29  W I  I ) =0  .0 
C 

WRITE  IS,  30) 

30  FORMAT  I IHI , l 7HDIS PLACEMENT  DATA//) 

RE  AD  1 5 , 3  )  KLINES 

WR IT E  (6 , 31 )  NUNES 

31  FORMAT  (30H  NO.  OF  DISPLACEMENT  CLUSTER  S  =  ,  I  5// ) 

C 

IF  {NUNES .TO. 0)'  GO  TO  37 

00  32  ILINE= I ,NL INES 

RE  AD  1 5  ,8  )  LOISP,  ANAME 

WR  I T  E  ( 6 , 33  )  ANAME,  LOISP,  IUNE 

33  FORMAT I//18A4/20H  NO.  OF  NODE  PO INTS  =  , I  5, 1 1H  ON  CLLSTFR ,15//) 

WR I T  E ( 6 , 34  ) 

34  FCrRWATT5rrT«jDFnaX16RJDrSPL,  I4X,  6HWDISPL/17X,3HIN.,17X,3HIN.//) 

DC  35  1*1, LOISP 

READI5 , 10  )  NPD  ISPI  l)*UOIS?(  I),WDISP(  I) 

35  WRITE  (6»12)NPDISP(  I),  UDISPII),  WDISPII) 

DC  36  1=1,  LOISP 

NP  =  NPCISPI  I  ) 

NPDIST*  ITT  N  PT  P I  NP  T 
NP=NrDISP(  I) 

U I  NP)  =  J  0  IS  PI  I  ) 

36  W(NPi  =  WDISP(  U 

32  CONTINUE 
C 

37  PXWrNO  T3 
REWIND  14 
00  38  1  =  1,  MJMNP 


ooo  o  non 


5'  sv* 


RE  AD ( 10  )  NtNAOJMP,  I TY  PEC  I),  THETA(  l),XMASS,  SNPLU, SNPUW , SNPWW , 
I  (NPADJl  J)  ,SA01JJ(  J  J.SACJWl  J  ),SA0WUtJ  » »  SADWW  (  J )  ,  J  =  1  ,MXAD  JP ) 

1  FAWl  l)=JFAW(  I  )+XMASS 

3«  WR I T  6 ( 14 )  1 » N ADJNP ,  ITYPEl  T )  >  THETA {  I) , XMA SS- SNPLl, SNPUW , SNPWW  , 
1 (NPAP  t  J5 » S AOU J ( J  )»  S ACJW ( J WSAOWUlJ ) , SADWWl J > , J=i ,MXA0 JP )  , 
2FAUI I) ,FAWlt ),J(  I)*H(  I) 

REWIND  10 
REWINO  14 

IF  l  (  I  PR [NT  .N£ .$ )  •  AND.  (  I  PR  IN  T  »N£ .99 )  RETURN 
WRIT  El  6, TOI) 

101  FORMAT  <1H1,'32HINPUT  LOAD  AND  DISPLACEMENT  DATA// 

15X,3HNEW, 12X  ,  6HJ  D  IS  PL  , 14X , 6HW D I SPL,  14X,  5HL  OADU  *  1 5X»  5HL0ADW/ 
25X.4HNOCE,  I2X,4H(  IN),  16X,4H(  IN),  I5X  »  5H(  LB  S  )  ,  1 5  X ,  SH  ( LB  S)  / /) 

DC  102  1= 1 » NJ  MNP 

102  W(UTE(6,103)  l,Jl  I),W(  I),FAU(  D.FAWlI) 

103  FORMAT (I8.2X, IP4E20. 5) 

RETURN 


END 

SUB ROUT INS  COER M AXNP , NUMNP ,  LOAONP, N9LOAD*CPRESS»R»Z»I STRE S) 
DIMENSION  NPLOADl LO ADNP ) ♦ CPRESSl  100, 3 ) , R ( MA XNP ) » Z l M* XNP) 

DC  l  1=1, LCADNP  1 

DC  1  J=l,3 

1  CPRESS ( l , J )=  0 .0 

NUM=LOACNp-l 
DC  4  I  =  l  *  NU M 
NP=NPLOAD( 1 ) 

NPl  =  NPLCADl I  +  i J 
A J=  R (  NPl )  -R(  NP) 

BJ=Z ( NPl ) -Z ( NP ) 

AL=S  QRT { AJ+AJ  +BJ*BJ » 

I F  1 1  ST  RES • NP .0 )  GO  TO  2 
Cl=AL*(3.*ft(  NP)+RINP1 ) )  /  12. 

C2  =  AL*(R(NP)+R(NPi)  )/ 12. 

C3=AL*(RINP)+3.*RINP1 ) )/12. 

GQ  TO  3 

2  Cl  =  AL/3. 

C2  =  AL/6. 

C3  =  Cl 

i3  CPRESS  11*2)  =  C  PRES  SI  I,  2  )  +C 1 
CPRESS l I »  3 )=  C2 
M=I  +  l 

CPRESS  (M,2)=C3 
CPRESS  IP,  l  )=C? 

4'  CCN1INJE 
RETURN 
END 


OVERLAY l MOHAN, 10,0  )' 

PROGRAM  ,LNK1H  ' 

COMMON  MAXNP*  MXCLS*  MX  ADJ P » MXZGN E , MXNPB  » NZONE  S »  MXPE L3 , NUMNP  , 

1  NUMEL,  ISTRES,NUMPFL,NUMELP,»ER10D,NMKCLS,FACT0R,ALAMB, 

2  KfAPE ,  KRJN, IPR INT ,NUMST , MXSTR T, I  6LA  STl  2  Ol ,  LA  ST (20)  , 

3  WGT120)  ,  NST  ARTl  79),  Ell  5,  20),  IP  EL  TP  ,  INTrNPRCD  S 
DIMENSION  NADJNP1400),  ITYP  El  400  ) ,  SNP  UUl  40C )  »  SNPUW  1400)  , 
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1SNPWU ( 403 ) *SNPWW<  400),NPACJ(  400,  16) , SADUUt  4C0, 16) , 

2SA0UW I 400  , 16 ) ,SAOWJ(400,  16  ), SADWWt 400, 16) ,FAU( 400) , 
3FAW(400),J(400),W<400) 

01  MENS  FCN  UN(  1600  ),WN(  1600) 

MCHAN=5HM0FAN 

£***$*♦♦****#**$#**#*$£*$ *$*£**, ***$£***$#$***  $$#*************$#*$*#***** 
writer, iooo ) 

1000  FORMAT ( *  ELIMINATION  SOLUTION  HAS  STARTED*) 
C#**^***********************##*#***#*!!*****************************  S***.* 
REWl  ND~TS 
KEWINO  14 
NX  AD  JP=  2*MX  AOJ  P 
NPOUT  =  0 
NUMCP=0 
KX  =  1 

GO  T  CT9(T0  ' 
l  00  50  N=  1 »  N'J  M  N  P  8 
1  DUM=  NACJNPI  N  ) 

IF ( I OJ M. EQ.O )  GO  TO  60 
DO  51  J=l,  IDJM 

IFINPADJ(N,J ) .GT .(NPUUT+NUMNPB)  )  GO  TO  59  / 

51  CONTINUE  / 

C 

60  IF { ITYPEC  N) . EO.O )  GO  TO  5C 
IF ( IDUM.EQ.O )  GO  TO  61 
00  52  J=i,  IDJM 
NADJ=  NPADJ ( N, J  ) 

NRDJ^NACX-NPOJT  ” 

JDUM=  NACJNPI NRDJ ) 

DO  53  K= l »  JOJ M 
KK=  K 

IFINPADJINROJ,K)  .EQ.I  N+NPOlJT  )  )  GO  TO  55 

53  CONTINUE 
WRITE (6, 54) 

54  FORMAT ( 1H1.26HERR0R  IN  L  IF,  STATEMENT  54//) 

NCDE=N 
GO  TO  909 

55  IF  II T  YPGI  N)  •  EQ«  1 )  GO  TO  56 
F AU I NRDJ )  =  FA J I NRDJ ) -S  AOUU I  NRDJ  *  KK  )*UIN  ) 

FAW ( NRDJ )  =  FAW (NRDJ )-SADWU( NRDJ, KK  )*UIN) 

SAUUU  (NRDJ,KK)=0«0 
SADWU I NRDJ ,KK  )  =  0.0 
SAOUU ( N, J )=0  oO 
SADUW { N, J )=0  oO 

56  IF(ITYPE(N).FQ«3)  GO  TO  52 
F AU { NROJT=  FAJ  ( NRi)J  )-S  ADUWI  MkDJ,  KK  )*WIN  ) 

FAW I NRDJ )= FAW I NRDJ  )-S  ADWWINRDJ,  KK  )*  WIN  > 

SAOUW I NROJ,KK )=0.0 
SAOWW(NROJ,KK)=0.0 
SADWU I  N»  J i=0  •  0 
SA0KU(N,J)=0.0 

52  CONTINUE'  ' 

61  IF (ITYPE(N).GT.l )  GO  TO  57 
FAW { N)=W( N) 

F AU I N )  =  FAU I N ) -S NPUW I N  ) *W ( N  ) 

SNPWW I  N )-  I  »0 
SNPUW (  N)=0  »0 
SNPWUCN)=-0.0 
GO  TO  50 

57  I F ( I  TYPE! N) • GT .2 )  GO  TO  58 


58 


1 02 


FAUIN)=UIN) 

F AW l N) =W I N ) 

SNPUU  I  N  )  =  l  .0 
SNPWWIN)=l.O 
S  N  PU  W  (  N )  =  0  .8 
SNPWU  I N ) =0  .0 
GC  TO  50 
FAU I N) =U I N) 

F AW  I  N)  =  F AW  I N  )  -S  NPWJ  I  N  )*U  I  N  ) 

SNPUU  (N')  =  1.3 
SNPUW  I  N )  =  0  .0 
SNPWU  I N)=Q  .0 
50  CCNTINJE 
59  DC  3  N=  1 »  NUMNPB 
NN=  N 

JDUM=  N+NPOUT 

IF I JDJ  M. EQ.NJ MNP )  GO  TO  14 
I DUM=  NADJNPI  N  ) 

DC  4  J=  1  f  I  C‘J  H 

IF(NPADJ(N,J).GT  .(NPOUr+NUMNPUn  GO  TO  43 

4  CONTINUE 
NRMCP=  NRMCP+ 1 
DC  5  J=  l ,  I CU  M 
NAD  J=  NPADJ I N »  J ) 

NRD  J=  NADJ-NPO'JT 
DC  6  K=  J,  ICJM 

IF (NPADJ! N»K ) . EQ.NADJ )  GO  TO  6 

DO  7  1=  1 »  NX  ADJP 

LL=L 

LA-LL 

IF (NPADJINRDJ,L) . EQ .NP ADJ I N , K ) >  GO  TO  6 
IF ( NPADJ ( NROJ  , L ) . EQ  .0  )  GO  TO  V 

7  CCNTINUE 

IF (NADJ.LT .300 )  GQ  TO  6 
WR  ITE  1 6  ,8  I 

8  FORMAT  I IH1,25HERR0R  IN  L  IF,  STATEMENT  8//) 
NCDE=  N 

GC  TO  909 

9  NPAD J ( NRDJ , LI )= NPADJ! N»K ) 

NADJNPI  NRDJ)  =  NADJNPI  NRDJ  Ml 
NBDJ= NPAQJ ( N, K  J-NPUUT 

OC  10  L=  l »  NX  AOJP 
LL=L 

IF INPADJ(N8DJ,L) . FQ .0 >  GO  TO  12 

10  CONTINUE 
NPADJ(NRDJ,LA)  =  0 

NADJNP I NRDJ)  =  NADJNPI NROJ )-l 
IF (NADJ.LE.300 )  GO  TO  6 
WRITE16.11  ) 

11  FORMAT  I 1H1.26HERR0R  IN  L IF,  STATEMENT  11//) 
NCDE=  N 

GO  TO  909 

12  NPADJ! NBDJ.LL )=NADJ 
NADJNPI NBDJ )  =  NADJNPI NBDJ  Ml 

6  CONTINUE 

5  CONTINUE 

29  DO  20  J=l,  IOJM 
NAOJ=  NPAOJ I N , J  ) 

NRD J=  NACJ-NPOUT 
JDUM=  NADJNPI  NRDJ  ) 
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M3 

DC  21  K=  1 ,  JD'J  M 
KK=K 

IF  (NPADJ(NROJ,K)  .EQ.I  N+NPOUT  )  )  GO  TO  23 

21  CONTINUE 

IF (NADJ.LE  .300 )  GO  TO  20 
WR IT  E 1 6 ,22  > 

22  FORMAT  I  IH1,26HERR0R  IN  L  IF,  STATEMENT  22//) 

NODE=N 

GO  TO  909 

23  S*nJIU=S"AOUUrNRDT,KKl 
SMULW=S  ADWU I NRDJ  , KK  ) 

SNPUUI  NR0J)  =  SNPJJ  (NRDJ )-SMULU*SADUU( M* J  )/SNPUU(N) 

SNPUW  (  NR.DJ  )=  S  NPJW  I  NRDJ  )-SMULU*SADUW( N, J  )/$NPUU(N) 

S  NPWU I NRDJ )  =  S  NPW J I NRDJ ) -SMUL W#SADUU I M, J J/SNPUUIN) 
SNPWWI NRDJ )=  S  NPWW ( NRDJ ) -SMUL W* SADUW ( N , J )/SNPUU(N5 
DC  24  K= 1 1  JDU M 

IF INPADJ(NRDJ,K) .NE.I N+NPOUT  )  )  GO  TO  25 
SADUWlNROJ,K)=SADUWtNRDJ,K  J-SMULU* SNPUW IN  )  /SNPLU(N) 
SADWWlNRCJ,K)=SAOWWINRDJ,K )-SMULW*SNPUW(N) /SNPLUIN) 

S ADUU ( NRDJ  »K ) =0 .0 
SADUUI  NRDJ, K)  =0.0 
GO  TQ  2T 

25  DC  26  L=i, IDJM 
LL=L 

I F I NPADJTN»L )  . EQ.NP ADJ I NRCJ »  K  )  )  GO  TD  27 

26  CONTINUE 
GO  TO  24 

27  SA DUOTNffDT ,TTT  =  S A  OUUTN  R  0  J  ,  K  )  -  SM  UL  U*  S  A  DU  U I N  ,  L  L )  /  SN  P  l  U I  N ) 
SADUW(NRDJ,K)=SADUW(NRDJ,K  J-SMUL  U*SADUW I N  »  L  L )  /  SNP  LL'I  N ) 
SAOWU (NRDJ,K )=SADWUINRDJ,K  S-SMUL W*SADUU IN » LL ) /SNPLL(N) 
SADWW(NRDJ,K ) =S ADWW I NRDJ  ,  K  )-SMUL  W*SADUW IN  *  L  L ) / SNP  UL I N ) 

24  CONTINUE 

FAUlNRDJ)  =  FAJ<NROJ)*-SMJLU*FAUIN  )/SNPUU(N) 

FAW ( NRDJ) =  FAW ( NRDJ ) ~SMJLW*FAU( N  )  /SNPUUI N ) 

SADWU  IN»J)  =  SADWJ(N,  J)-SNPWUIN  i* SADUUl N , J )/ SNPUUI N ) 
SADWWIN, J)=S ADWWl N, J )-SNPWU< N  )* SADUWI N , J ) / SNPUUI N ) 

20  CONTINUE 

14  FAW I N)  =  FAW I N ) -SNPWJ I N ) *F AUI N  )  /  SNPUU I N  ) 

SNPWW  (  NJ="SNPW  W  (  N )  -SNPWUI  N  )*SNPUWl  N  )  /  SNP U'Jl N  ) 

SNPUW ( N)  =  S NPJ W I N ) /SNPU JI N  ) 

F  AU I  N)  =  F  AJ  (  N  ) / SNPUJ I N  ) 

JDUM=  N+NPOUT 

IF l JDUM.EQ.NUMNP)  GO  TO  15 
DO  28  J=l,  IDJM 

S  A'DUU  f  NT  JI  =  S  A  DJ  J  (  N,  J 17  S  NPUU  ( >) ) 

28  SADUW ( N, J )  =  S ADUW { N, J ) /SNPUUI N  ) 

30  DC  31  J=l«  IDJM 
NADJ=  NPADJ IN, J ) 

NROJ=  NADJ-  JPUUT 
JDUM=  NADJNPI  NRDJ  ) 

DC  3?  K= 1 , JDJ M 
KK  =  K 

IF (NPADJI NRDJ ,  K  )  .  EQ  .(  N+NPOUT ) )  GO  TO  34 

32  CONTINUE 

IF  INADJ.IE.300 )  GO  TO  31 
WRIT  El  6, 33) 

33  FORMAT! 1H1,?5HERR0R  IN  L  IF,  STATEMENT  33//) 

NCUE=  N 


l 1  ^*srr 


XRWWW  «  VI  Tft  vs  r--T  V*  "i  '7r<  *,  «T”  '•VT'  >*i  '  '■  "«.'■<  — ! 


s!  f* 
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GC  TO  909 

34  SPULU=S ADUW( NRDJ, KK  ) 

SPUtW=SA0WW( NR0J,KK > 

SNPUU  (  NRDJ  )  =  SNPJJ(  NRDJ  I-SMULU* SADWU!  M » J  I/SNPWW IN) 

SNPUW  (  NROJ  )  =  S  NPJW  !  NRDJ ) -SMUL U*SADWW  ( N, J )/SNPWW(N> 

SNPWU ( NRDJ )  =  S  NPWJ ( NRDJ )-SMULW*SADWU! N, J  )/SNPWk(N) 

SNPWW( NRDJ )=$NPWW( NROJ )-SMULW*SADWW( N»  J  )/SNPWW(N) 

00  35  K=  1 »  JDJ  M 

IF (NPADJ(NRDJ,K) .EQ.< N+NPOUT  )  )  GO  TO  35 
DO  35  L= 1*1 0 J M 
LL  =  L 

IF(NPADJ(N,U  .EU.NPADJ!NRCJ,K  )>  GO  TO  3? 

36  CONTINUE 
GO  TO  35 

37  S ADUU < NRDJ, K)=S ADUJ!  NRDJ, K )-SMULU*SADWU (N , LL S / SNP fcM N ) 
SADUW(NRO~J,K  )=SADJW(NRDJ,K  I-SMUL  U*SADWW  (N  ,  LL  )  /  SNP  WW(  N) 
SADWU ( NRDJ ,K } =S ADWU ( NRDJ ,K I-S^UL W*SADWU (N , LL) / SNP Wfe ( N ) 
SADWW(NRDJ,K) =  S  ADWW ( NRDJ ,K ) -SMUL W*SADWW (N , LL ) / SNP WW! N ) 

35  CONTINUE 

FAU ( NRDJ )  =  FAJ  » NRDJ )-SMJLU*FAW(N I /SNP WWINJ 
FAW ( NRDJ )=FAW( NRDJ ) -SMJL W*FAW( N )/SNPWW(N) 

31  CONTINUE  ” 

FAW(N)- FAK(N)/SNPWW(N ) 

D J  38  J=l,  IOJM 

'-.ADWU(N,J)  =  SADWJ(Nt  J  >/SNPWW(\l  I 

38  SADWW<N,J)=SADWW(N,  J)/SNPWW(N  ) 

2  DO  40  J=l,  IDJM 
NA  D  J=  N  P  A  D  J  (  N ,  J  ) 

NRD  j=  NACJ-NPOUT 
ISW=0 

JDUM=  NADJNP!  NRDJ  ) 

DO  41  K=  L »  JDJ  M 
IF(ISW.EQ.l)  GO  TO  42 

IF ( NPAD J( NRDJ , K ) .  NE  .( N+NPOUT  I  )  GO  TO  41 
ISW=1 

42  IF(K.EQoJDUM)  GO  TO  39 

NP  AD  J  (  NRDJ  »K  )  =NP  ACJ  ( NRDJ ,  K  +  l  ) 

SADUU ( NRDJ ,K )  =  S  ADUU ( NRDJ , K ♦ l ) 

SADUW(NRDJ,K > =S ADUW < NRDJ , K ♦ 1 1 
SADWU ( NROJ ,K ) =S  ADWJ (  NRDJ  *  K  +  l ) 

SADWW < NRDJ, K)=S ADWW <NRDJ,K+l) 

GO  TO  41 

39  NPADJ! NRDJ,K ) =0 
SADUU ( NRDJ ,K ) =0 .0 
SADUW ( NRDJ, K) =0.0 
SADWU ( NRDJ,K )=(5.0 
SADWW(NRUJ,K)=0.0 

41  CONTINUE 

NADJNP! NRDJ )= NADJNP! NROJ  )-l 

40  CONTINUE 

GC  TO  3 

15  W(N)  =  FAW(N)/S  NPWW  (  N  ) 

U  (  N)  =  F AU  (  N )-S  NPJW  (  N  )  *W  (  N  ) 

GO  TO  800 

3  CONTINUE 

43  WRITEQO!  NPOJT,  NRMCP,  (  ITYPEI  I  ),  FAU(  I  ) ,  FA  W  (  I  )  ,  SNPUW! I  )  , 

1  NADJNP!  I),(SADJJ(  I ,  J  ),  SADUWl  I,  J  ) ,  SADWU  (  I  ,  J  ) ,  SAD  WW<  I  ,  J)  , 


riWfiigfiiri 


I 


!  05  '  a-68 

2NPADJI  I»J),J=  1,NX  AOJP  I,  1=1,  MRMCP  )  , 

NUMCP3  NUMCP+NRMCP  ■  i 

NPOUT3  NUMCP 

NPR'=NUHKP&-NRWCP  ’  ,  '  ,  • 

GO  TO  902 

44  KX  =  NPR+ 1 

GO  TO  900'  1 

45  NODES R=  NUMNP-NJMCP  ,  • 

IF (NODES R.LE.MXNPB)  NUMNP B=N3 DESR  1 
IF(fTCCrESR."GT  .MXTNP'8y  NIUMNPfi=MXNPB 

GO  TO  904  1 

46  NRMCP=0 
GC  TO  1 

900  DC  901  1=  KX,  MXNPB 
NADJNP 111=0 

IT YPE C  I  )  =  0  ' 

SNPUU  (  I  )=0  »0  , 

SNPUW(I)=0.0 
snpwuu)=o.o 
snpwwii»=o.o 
FAU(n=0.0 
FAW ( I ) =0«0 

um=o.o 

HI  1 1=3.0 

DC  901  J=  1 » NX  ADJ  P 

NPAD J ( ! » J )=0  1 

SADUOTI.-aT^VO . . 

SADUWC I » J)*0 .0 

SADWUI I  J)=0.0  , 

901  SAUWW  ( I  .  D  =  0 .0  •  r 

GO  TO  45  i 

902  DO  903  L3  1  ♦  N  P  R 
K=  NRMCP+l~ 

NADJNP! L)= NADJNP! K I 

ITYPEI  L)3  ITYPEdU  , 

SNPUU  (  L )*SNPJ J (  K  )  ■ 

S  N  PU  W !  L  1 3  5  NP  J  W  (  K  I 
SNPWU(U3SNPWU(K) 

SNPHWI  iT^SNPWWtK  I 

FAU  (  L )  =  FAJ  ( K  )  , 

FAWt  L)  =  FAW (K ) 

U!l)=U<K) 

W! LI 3W ( K) 

DC  903  J= 1 ,NX  AOJP 

NFAD  JfLV  J )  =  NFADJTKTJ  ) 

SADUU ( L, J)3S  ADUU ( K, J  ) 

SADUW?  L»  J)=SADUW(K,  J  I 
SADWU! L,J)=S ADWJ(K, J ) 

903  SADWWlL»J)3SADWW(K,  J) 

GO  TO  44 

904  CONTINJF 

DO  905  l  =  KX»  NJMNPR 

RE AD ( 14  I  N,  NADJNP!  1),  ITYPEI  I  I,  THETA,  XMA  $S,  SNPLt!  I  IfSNPUWtl)  , 
ISNPWHl  I ) ,  {  NPAOJ(  I*  J  I,  S ACUU!  I,  J  ),  SADUHI I ,  J  I  ,  SAD WUt  I  ,  J)  ,SADWW(I  ,J) 
2  J=  1 »  MX  ACJP I  ,  F  AU  (  I  I,  FAW  (  !),U!  I  ),W(  IT 

905  CONTINUE 

DC  913  1  =  KX,  NlfMN'PBF  ' 

SNPWU!  I»  =  SNPJWII  I  , 

913  CONTINUE 


I 


I 


106'  Ar69  . 

'  GO  TO  46  i  : 

909  WR  IT  E'{  6  *9  10  )  NPOUT »  NQCE*  NAOJ  ; 

WRlTE(b,9ll)  (NPADJ!  NODE, K  ),K  =  1;NXADJP  ) 

'  WR.ITE(6t9in  (NPACj(NRbJ,K  ),K  =  1,NXADJP  ) 

910  FORMAT  C7H  NPOUT= , 1 5/ 7H  NOCE  =,15/7H  NADJ  =  ,I5/7H  NPAUJ-) 

911  FORMAT (1615) 

CALL  EXIT 

,  600  DO  801  N= 1 , NJMNP  | 

UN<N)=3.0  , 

801  WN(N)=0.0 

UN (NUMNP)  =  U( NN) 

WN(NUMNP)  =  W(  NN) 

C  1  i  ,  ! 

,  I F,( NPOJT  •  EG»  0  ) '  GO  TO  807 
BACKSPACE  .10 

807  CONTINUE'  . 

805  DC  802  !=1,NRMCP  .  ■  , 

J=  NRMGP+l-I  • 

,  N=J+NPOUT 

WN(NI=FAWiJ>  1  ! 

IPUM=NACJNP(  J >  ‘  , 

DC  801  "K,-1,ID’JM 

,NADJ=  NPADJ (J  »  K )  ,  , 

803  WN(N)=WN(N)-SADWJ(J,K J*UN(NADJ )- SADWWl J  »K  )*  WN  f  NAD  J ). 

UN  (  N)!=  F  AU  (  J)  -SNPUWI  J  )  *WN(  N  ) 

I  UO  8  04  K=  l » .!  DJM  '  .  1 

NAD J=  NPADJ ( J  »  K  ) 

804  UN(N)=UN(N)~SADJJ(J*K )*UN(NADJ  )-SADUW(  J  ,K  )*  WN  (  NAD  J ) 

C  1 

802  CONTINUE 

C  :  , 

:  IF(N.EQ.l)  GC  TO  805 

C  1  ,  '  1 

RE  AD  {  i  O')  NPUUT  ,  NR'MCP  ,  (  ITYpE{  I ), FAUC  I  >,FAW(  1)  »  SNPUWd  )  , 

L  NADJNPI  l )  *  (  S  ADJ  J  (  I,J  >,SADUW(  l,J  ! , SADWU ( l , J ) ,  SAC  WW(  I  ,J)  , 

2  NPADJ (  I  *  J  ) «  J  =  l1*  NX  ADJ  P  ) ,  1  =  1»  NRMCP  ) 

,  IF,(NPOUT.feC.O  )  GO  TO  805 
BACKSPACE  10 
BACKSPACE  10  . 

GO  TO  805  • 

C  , 

80b  REWIND  10 
REWIND  14 
c  1 

00,803  1=  l  *  W'JMNff  ' 

C  ■ 

1  READ!  14  )  N*N)  DJNP*  JTYPE*TFETA,  XMASSt  STNPUU,  STNPUW,STNPV«W, 

1  ( NPAD J  ( 1  *  J ) , S  ADUU (  l*  J  )  *  S ADUWI  l  *  J  tv  SADWLI  l »  J ) »  SAUWWt  l  »  J)  » 

2  J-l  ,MXAOJP)  *  FJ,  FWtUDUM,  WCUM 
C 

808  WRIT  E  (10)  Nj  NT DJNP*  JTYPE*  THETA*  XMAS S,  STNPLU *  STNPUVi*  STNPh W,F U ,F  W  , 
1  (NPADJ  ( I « J  )  *  S  ADUU  ( 1*  J  )*  S  ADUW(  1*  J  ),  SADWWt  l  *  J  )  *  J  =1  »MXAG  JP) 

c  .  ■  ' 

1  REWIND  8 
REWIND  10 

REWIND  14  '  ; 

C  1 

DC  809  1=1, NJMNP  1 

809  RE  AD  1 9  5  J  *  F  AJ  (  l  )  *  F  AlJ  (  1  )  *  (  FAU(K )*K= 1,MXADJP ) 

RFAD<3)  NU,  (  ITYPEI  I ),  ITYPEI  I  ).  ITYPEI  I  )  »  ITYPEII)  ,1  TYPE  U  )  * 


o  o  o 


A-TO 


1  I  TYPE  (  !  ) ,  1=  l ,  NJ  ) 

REAO(8)  (NJ,NU,  l=l»NUMNP) 

WRITE  (8  )  (UN(  15,WN(  I),  I=1,NUMNP  ) 

REWIND  8 

IF((IPRINT.NE.6).ANC«(  IPRINT.NE.99)  IRE  TURN 
WR ITE ( 6 ,8 10 ) 

810  FORMAT  (  1H1 » 2 2 HRESULTS  OF  ELIMINATION// 

I5X ,3HNEW, 12X,6HJDISPL, 14X, 6HWDISPL/ 
25X,4HNOCE,r?X,4H(  IN),  16X,4H(  IN)//) 

DO  9  I L  1=1 fNUMNP 

811  WRITE«6»812)  I»JNm,WNII) 

812  FORMAT  (  18, 2X, 1P2E20.5) 

RETURN 

END 


OVERLAY ( MOHAN , 11,0  ) 

PROGRAM  LNK1 I 

COMMON  PAX  Np »  MX  CL S ,  MX AUJP ,  MXZ ON E , MXNPB , N20NE S , MXPE L8 , NLMNP  , 

1  NJMEL ,  ISTRES,  NUMPEL»NUMELP,  PERIOD,  NMKCL  S,F  AC  TOR  ,ALAMB  , 

2  KTAPF,  KKJN,  I  PR  INT ,  NUMST,  MX  STR  T,  IELA  ST(  20 , 1  PLA  ST  (20)  , 

3  WGT  (20),NST  ART  (  79 )  ,  E  I(  5,  20  )»  IP  EL  TP,  IN T  ,NPRCD S , I MPB X 
C 

DIMENSION  NADJNP( 400 ) ,  I TYPE( 400  ) , THETA ( 4CC ) , XMA SS (400)  , 

ISNPUJ ( 400 ) »S  NPJW (  400 ) »  SNPWW( 400 > , NP ADJ ( 400, 8) , SAD LU( 40C , 8)  , 
2SADUWI4O078)',  SADWW400,  8),NADJEL(  400) 

C 

C 

DIMENSION  ST  NPU  (  4,  400  ),  STNPW(  4,  400),  STADU(  4,4CC,l  , 

1ST ADW (4,400,8  ) 

DI  MENS  ICN  NP(.OW(  80),NPHIGM  80),NP0UT(  80  )  ,NUMCP  (  80 )  , 

INELCLS  (80)  ,NMPCLS(80),NPTN(  1600),FAU(  400  ,FAW(  400) 

C 

EQUIVALENCE  (STNPU( l), ITYPE ), ( STNPU( 4C1 ), THE TA ) , 

1  (S  T  NPU  (801  ),X  MASS  ),(STNPU(  120  1 ) ,  SNPUU) ,  (  STNPW(  1 )  ,  SNPUW)  , 

2  (STNPW  (401 ) ,  SNPWW  ),  (STADU(  1 ),  SADUU),  (  STADU(  32C1)  ,  SAOUW)  , 

3  (S  T  ADJ  (6401),  S  AUWW  ) ,  (  ST  ADW  l  1  ),NP  TN  )  ,  (  STNP  W(  80  }  ,F  AU)  , 

4 (STNPW ( 120 1) , FAW ) 

C 

MCHAN=  5HMQHAN 

REWIND  8 

DC  l  1=1,  NUMNP 

l  RE  AD  ( 8  )  N,  NPL  OW  (  1  ),  NPLOW  (  1),(NPL0W(J),J  =  1,MXADJP) 

RE  AD  (51  "NJMCLS,  (NPI0WT1  ),NPHTGH(  I  ),NP0UT(  I  )  , NUMCP  ( I  )  , 
i  NFLCLS  (  I ) ,  NMPCLS  (  I),  1=1,  NUMCL  S  ) 

REWIND  10 
REWIND  14 
IC=1 

NLOW=  NPCUT ( I C  )  + 1 
NHGH= NUVCP(TC) 

104  DC  101  L=NLOW , NHGH 

101  RE  AD  ( 10  )  N,NA()JNP(L),  ITYPE(L), THE  TAIL),  XMA  SS(  L  )  ,  SNPllU  ( L )  , 

l  SNPUW  (  L )  ,S  NPW  W  (  L  ) ,  FAJ  (  L  >,FAW(L  ),(  NPAOJ  (  L ,  J  ),  SADUU  ( L  ,  J )  ,SADUw(l  ,J)  , 
2SAUWW (  L  *  J ) *  J  = l, MX ADJP ) 

NU  MNPB=  NUMCP (  IC)-NPUUT(  IC) 

WRITE (14)  NPL 0W(  IC),NPHIGM  IC),NPOUT(  IC  ), NUMCP  (IC  )  ,NC  LC  L  S ( l C )  , 
INMPCLS  (  IC) ,NJMNPB»  (  NACJNPI  I  ),  1TYPE(  I  ) ,  THE  TA  (I  )  ,  XMA  SS  U)  ,  SN^LLd  )  , 
2SNPUW  (  I  ) ,  SNPWW  (  I  ) ,  FAUl  I  ),  F  AW(  I ) ,  ( NPADJ  (  I,  J  )  ,  SADUU  (I  ,  J)  ,  SAOUWU  ,  J)  , 
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?  OB 

3SADKW  (  I  ,  J)  ,  J=  l,  MX  ADJP  ),  I=i,NUMNPB) 

I  C=  I C-M 

IF  UC.GT.NUMCLS  I  GO  TO  105 
IF !NPOUTl  IC) .NE.NUMCP!  IC-1  )  )  GO  TO  103 
NLGW=  1 

NHGH=  NU MCP! I C ) -NPOJT (  ICI 
GC  TO  104 

103  NPR=NUMCP!  IC-1  J-NPOUT!  IC  ) 

DC  102  1=1, NPR 
L=NPOUTnC)-NPOjr  (  IC-1MI 
NADJNP! I )  =  NADJNPI L  ) 

I  TYPE  {  I  )=  ITYPEIL  ) 

THETA! I )=THET AIL) 

XP  ASS (  I )  =  XPASS (L  ) 

SNPUU  (  I  )  =  S\PJJ(L  ) 

SNPUWt I )=SNPJW(L  ) 

SNPWW ( I )  =  S  NPW  W  (  L  ) 

FAU ( I ) =  F AU ( L ) 

FAW( I)  =  FAW (L ) 

DO  102  J= 1 , MX  ADJ  P 
NPADJ! I,J)  =  NPADJ!L,J) 

SADUU  (  I ,  J )  =  S  ADUJ  (  L,  J  ) 

SAOUW!  I ,  J  )  =  S  A  DU  W  (  L,  J  ) 

102  SADWW!  I,J)  =  SADWW!l,  J) 

NLOW=NUPCP(  I  C- 1 ) -NPOJT!  IC  )  ♦  1 
NHGH=NJPCP(  IU-NPOUT!  IC) 

GC  TO  104 

105  REWIND  10 
REWIND  14 

DC  105  NC= I, NJMCLS 
READ!  14)  N1,N2,N3,N4,  N5,  N6,  N  7, !  NADJNP  (  I  ),  I  TYPE!  I  )  «  HE  TA  ( I )  , 

1 XPASS ( I ) ,SNPJ J! I ) » SNPUW (  I), SNPWW! I ) , FAU! I ) , FA W ( I  I , ( NPAD J ( I  ,J)  , 
2SADUU  (  I«  J)  ,S  AOJW!  I,  J),  SADWW!  I,  J  )»  J=  1,MXADJP  ) ,  I  =1  ,N7) 

WRITE!  10) Nit  N2,N3,N4,  N5,  N6,  N  7,  !  NADJNP  (  I  ) ,  I  T YPE  !  I  )  ,  THE  TA  ( I )  , 
IXMASS!  I  ) ,  S  NPJ  J  (  1  ) ,  SNPUW !  I  ),  SNPWW!  I ) ,  FAU!  I  >  ,  FA  W  <  I  )  ,!NP4DJ!I  ,J)  , 

2  SADUU  (  l,J),SADJW<  I,  J),  SADWW!  l,J  ),  J=1,MXA0JP  ),I  =1,N7) 

106  CONTINUE 

READ  13  )  (NPTN!  I  ),  NC,  1=1,  NUMNP  ) 

WRITE!  10  )  ! NPTN!  I  ),  1  =  1, NUMNP  ) 

REWIND  8 
REWIND  3 
IC=1 
NLQW= l 

NHGH=  NUPCP!  IC) 

204  DC  201  l=NLOW,NHGH 

201  READ!  3  )  N,  NADJNP!!  ),  NAD.J  EL  <  L  ),( NPADJ  <L  ,  J ),  J  =1 ,  MXADJP  )  , 

1 (STNPU !K,L),STNPW(K,L ) , K = 1, 4 ) , < ( STADUl K ,1 , J ) , STAD W! K , t , J) , 
2K*1,4)  ,  J=l,MX  ADJP) 

NUMNPB=NJMCP(  IO-NPOUT!  IC) 

WRITE  I  10  )  NPLOW!  I  C ) ,  NPH I GH  IC),NP0UT!  IC  )  ,NUMCP  ( IC  )  ,NE  LC  L  S!  I C )  , 
INPPCIS!  IC),NJMNP8,  (NADJNP!  I ),  NADJEL  (  I ) ,  (NPADJ!  I  ,  J) » J  =  1  , MXADJP)  , 
2  (ST  NPJ  (  K,  I ),  STNPW  (K,  I)«K=1,4),((  STADU!  K,I,J),STADW(K,I  *  J)  , 
3K=1,4)  ,  J*1,MXADJP),  1=  1,  NUMNPB  ) 

I C *  I C-*- 1 

IF(IC.GT.NUMCLS)  GO  TO  205 

IF<NPOUT( IC) .NE.NUMCP!  IC-1  )  )  GO  TO  203 

NlOW*  l 

NHGH=  NU  PCP! I C ) -NPOJT (  IC) 
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GC  TO  204 

203  NPR=NUMCP(  IC-1  )-NPfllJT  (  IC) 

DC  202  T=I,‘NPR  ' 

L=  NPOUT  (  IO-NPOJT  (  IC-D  +  I 
NADJNP ( I )  =  NADJNP( L ) 

NADJELt  n=NA0JEL(  U 
00  207  J=  1 » MX  ADJ P 
207  NPADJ( I, J)=NPADJ( L, J ) 

DO  20 2~K=-l,<r 

ST  NPU  (  K*  I  )=S  T  NPJ  (  K,  L  ) 

STNPWlK,  I  )=S  T  NPW  (  K»  L  > 

DC  202  J=1,MXADJP 

ST AOU (K,I,J)=STADU(K,L,J  ) 

202  ST  ADW  (  K»  I » J  )  =  S  T  ADW(  K,  L»  J  ) 


NLOW=NUMCP( IC-l)-NPOUT(  IO  +  l 
NHGH- NUMCP( I C ) -NP0JT(  IC  ) 

GO  TO  204 
C 

205  REWIND  10 
REWIND  3 
RETURN 
END 
C 
C 
C 

OVERLAY (MOHAN, 12,0  J 
PROGRAM  LNK1J 

COMMON  MAXNP,MXCLS,MXADJP,MXZON£,MXN»B,NZONES,MXPELB  ,  NUMNP, 

1  NJMEL,  ISTRES,NUMPEL,NUMELP, PERIOD, NMKCLS, FACTOR, ALAMB, 

2  KT  APE,  KRJN,  I  PR  INT,NUMST,MXSTRT,  IELA  STC  2  0  ,  IPLA  ST!  20)  , 

3  WGT (20 ) »  NST  ART  (  79  ) ,  E  I(  5,20),  IP  EL  TP  ,  IN  T  ,NPRCD S  »  I  MPB  X 
DI  MENS  I CN  NPL0W(80),NPHIGM  80),NP0UT(  80  ),NUMCP  (  80)  , 

1 NE  LCLS ( 80 ) y  NMPCLS ( 80 ) 

C 

DIMENSION  JPLASTt  20),  CC(  4,4) 

DI  MENS  ION  NOOFEL  (  24),NP(  24,  4),  I  TYPE  (  24,  4 ) ,  THE  TA  ( 24 ,4 )  , 
IC(24,4,4) ,  E(  24,4,  8),P(  24,  8,  4),  EP  STI  1(  24,4)  ,EPSPI  1  (24,4)  , 
2SIGIl{24i4),DJM(24, 2 9  ), IDUM(  24,  29) 

EQUIVALENCE  (DJM,  IDUM) 

0!  MENS  ION  ALPHAl  20),CAPPA(  20),CDSTH(  20  )  ,N0  YILD  (20)  , 

1  SSTAR(20,  10),  HSTAK(  2C,  10) 

2  *  COHES  N(  20  ) ,  FRCTN  i(  20  ) ,  FRC  TN  2(  20  ) ,  SNSWC H (  2  C )  , 

3  CRES I D(20 ) , FRES I0( 20  ) , J TEN SN ( 20  ) , 

4  MYTELDT20  ) ,  TRES  I0(  20  ) 

MOHAN=5HMOHAN 
IF(NUMPEL.EO.O)  RETURN 
REWIND  12 

REWIND  8 

DC  l  1  =  1,  NUMNP 

1  READ18  1  TiNPlOWmVNPLOWt  1 ) ,  ( NPLOW(  J  ) ,  J  =1,  MXAD  JP  ) 

RE  AD  (3  )  NJMCLS  ,  (  NPLUW  (  I),NPHIGH(  I),NPQUT(I  ),NUMCP(I)  , 
l  NE  LCLS  (  I),  NMPCLS  (  I),  I  =  1,NUMCL$) 

REWIND  8 
REWIND  4 
DO  2  1=1, NUMNP 

2  READI4)  N,  R,  D*TT ,  TH 
READ(4)  NZCNFS 

DC  3  1=1, NZCNhS 
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no 

READ14)  IZ,ICLAST(  IZHJPLAST!  IZ),WGT(  IZ>,!EI(J,IZ>,J  =  1,5) 

IF (JPLAST  (  17.  I  . EQ.O )  GO  TO  3 
IF (JPLAST { IZ  I.GT  .1)  GO  TO  A 

RE AO (A  I  K, ( S S  T  ARf  I/,  J ),  J  =  l,  K ),  {  HSTARt IZ, Jl , J=l  ,KJ 
NQYILD!  IZ  )  =  K 
GO  TO  3 

4  IF ( JPLAST { IZ I .GT .2)  GO  TO  10 
RE AD(  4)  ALPHA!  IZ  I,  CAPPA!  IZ  ),COSTH<  IZ  I 
GC  TU  3 

10  IF (JPLAST!  fZ  )  .GT.3'1  GO  TO  5 

READ(4 )  CGHESN!  IZ  ),FRCTN1(  IZ  ),  FRCTN2!  IZ  ), 

1  SNSWCH!  IZ  J.CRESIO!  IZ),FRESIDt  IZ), 

2  PYIELOC  IZ  ).  IRESID!  IZ  It  JTENSM!  IZ» 

GC  TO  3 

5  WRITE(6,6)  IZt  JPLAST!  IZ  ) 

6  FORMAT (IH1,22HERR0R  IN  L  IP  ZONE  DATA// l CX, 7HZ0NE  =  ,15/ 
L10X,7HJPLA$T= , 15 ) 

CALl  EXIT 
i  CONTINUE 
C 

JCLUS=  l 
NU MT  EL=0 

a  IF (NMPOLSt JCLUS) .NE.O)  GO  TU  7 
JCLUS=  JCLJS* l 

9  IF (JCLUS. LE.NJMCLS )  GO  TO  8 
REWIND  12 
REWIND  4 
RETURN 
C 

7  NUMCEL=0 

100  IF  !  !  NELCLS  (JCLUS  l-NUMCEL  J.LT.MXPELB  )  NUMELB  =NE  LCL  S!  JC  LLS)  -NLMCE  L 
IF ( (NELCLS (JCLUS ) -NUMCEL ) .GE  .MXPELB  )  NUMELB  =MXPELB 
DC  200  KK=  I,  NJMEL  B 

READ(4 )  JJtNUOFEL(KK),  IZONEt  IPL  A  ST!  KX  > ,  NP  (  KK ,  l ) ,NP(KK,2)  ,NP(KK,1)  , 
l NP ( KKt4 1 1  NCR ACKt  I TY  PE( XK ,  lit  ITYPE( XK , 2 ) 1 1  TYPE ( KK, 31 , I  T  YPE ( KK  ,4 )  , 

2  THFT  A(KK,  l  ),  THETA!  XX,  2),  IHE  TA  !  KK  t  3  ) ,  THE  TA  ( KK  ,4)  , 

3  R!,RJ,RK,RL,ZI,ZJ,ZX,ZL 
IF (JJ.EC. JCLJS )  GO  TO  239 
WRITE  (6  t<?40  1  JJtJCLUS 

240  FORMAT!  1HI,7HJJ  =,  I5/7P  JCLUS  =  ,I5) 

CALL  EXIT 
239  CONTINUE 

202  IE=IELAST(  IZONE) 

AlsEI(ltlZCNE) 

A2  =  E  1 1 2 1 IZCNE  J 
A3-E I  (  3 1 IZCNE  ) 

A4=EI(4, IZCNE) 

A5  =  E  I!  5  t  IZCNE  I 
NUME=NOCFEL(KK) 

CALL  ELCST ( I  fc , 1ST  RES,  Al,  A2,  A 3,  A4,  A5,CC,NUME  ) 

DC  203  1=1,4 
OC  203  J=  l  ,4 

203  C( KK, I , JI  =  CC(  f,J) 

C 

DC  204  1=1,4 
DO  204  J= 1 ,8 
B( KK, I , J)=0.0 

204  P(KK,J, 11=0.0 
C 

IF (NP( KK,4 ) . NE .0  I  GO  TO  208 


i  A-jh 

’  \  1 


AJ-RJ-RI 

AK  =  RK-R I 

BJ=Z J-Z I 

BK=ZK-Zi 

HH=  A J  +  BK-AKfrB J 

AA= A J-AK 

B8  =  B  J-BK 

B  S  Kfc;  1  *  1 »  =  HQ/ 

B(KK,l,3)=8K/f~H 
B(KK, l,5)=-BJ/HH 
IF ( I STRES . NH. 0  )  GO  TO  205 
R0= ( A J  +  AK )/ 3 . 

ZC= ( BJ+BK )/ 3 . 

CAPRO=  RT+RO  " 

8 1  KK ,2 ♦ 1 ) -  ( HH  +  BB+RO' AA*ZO ) / 1 HH*CAPRQ ) 
B(KK,2,3)=  (BK*RU-AK*ZO)/(  FH*CAPRO> 
B(KK»2*5)=(-BJ$RO+AJ*ZO  )/{  HH*CAPRO) 

205  B(KK»3»2)=-AA/ HH 
B<KK,3,4)=-AK/HH 
B ( KK,  3 » 6 1=  AJZ  HH 
B(KK,4,1)  =  B(KK,3,  2  J 
B(KK,4,2)=B(  KK,  L,  I J 
B( KK  ,4  *  3 )  =  B( KK, 3 » 4) 

B<KK,4,4)=8i KK, 1,3) 

B(KK,4,5)  =  B(KK,3,6) 

"  B  (  KK ,  4  ,  <57  =  B  f  K  K ,  1 , 5 ) 

I F { I  ST  RES • NF „0  )  C0NST=HH/2. 

IF ( 1ST  RES. EQ.O )  C0NST=HH*CAPR0/2. 

212  DO  205  1=1,8 
DO  205  J= 1 *4 
DO  20Tfii=l,4 

20?  P( KK, I , J)  =  P( KK, I, J)+CONST*B(KK,N,  l)*CC(N,J) 

206  CONTINUF 
GO  TO  231 

208  A J=  R J— R I 
BJ=Z J-Z  l 

AA=S  QRT  (  AJ+AJ  +  BJ  *HJ  ) 

AL=  Rl-R I 
BL=  ZL-Z  I 

BB=SQRT  {  At*AL  4-BL  *BL  ) 

HH=AA*BB 
SU-BJ7AA 
C1  =  AJ/AA 

IF (NCRACK*  EO.O )  GO  TO  213 
HH=  AA 
BB=0 .0 

213  CONTINUE 

IF (ISTRES . FO.O )  GO  TO  209 
RC*AA/2. 

Z0=BB/2. 

GO  TO  210 

209  AI NT  Is  HH 
AINT2  =  HH*BB/2. 

AINT3*HH*AA/2. 

A I  NT4=HH*(  RIM  AA*Cl*BB*S  I  )/2.  ) 

AI NT13=AA*AINT4?2.+FH*AA**2*CI/  12. 


AINT14=BB*AINr4/2.+HH*BB**2*Si/12. 

A I  NT  16  =  (  HH/2  .  M>*2 
RC=AINT  13/AINT4 
ZC=A I  NT  14/ AINT4 

210  0UHMY=RC*S1+Z0*C1 

BlKK,  l ,  1 )=(-AA*S 1-B8*C1  +CUMM Y  )/HH 
B(KK» 1 ,3)=(8B*Ci-CJMMY )/HH 
BlKK, l  ,  5  )  =  C'J MMY /  HH 
B  t  KK*  1  o  7  )  =  (  A  A*S  1  -DJMMY  )  /  HH 
I F  { I S T'rES  •  NE  .0  )  GO  TO  211 
IF (NCRACK.EQ. 1 )  GO  TO  211 

Bl KK,2,1)=1HH*AINT i-BB*A  INT 3+A IN T lfc-AA*A IN T2> / (HH*A I N T4) 
BlKK, 2,3)= 1BB*AINT3-AINT tfc )/< HH*A IN  T4 ) 

B(KK,2,5)=AlNT 16/ ( HH*A INT4 ) 

BlKK,2,7)=< AA*AINT2-A INT 161/1  HH# A  IN  T4 I 

211  DUMMY=RC*Cl-ZO*S  1 

Bl KK,3,2)= 1 1  BB*S 1-AA*C1 J+CUMMY )/HH 
B(KK, 3,4 )=(-BB#Sl -DUMMY )/FH 
B(  KK,  3,6  )  =  C'JMMY  /  HH 
B( KK,3 ,6 )  =  CJMMY  / HH 
B(KK»3»8)=(AA*C1-CJMMY  J/HH 
Bl KK»4  » 1 )  =  B( KK, 3, 2) 

Bl  KK, 4, 21  =  81  KK,  l,  l) 

BlKK,4,3I=8(  KK,  3,  4) 

Bl KK,4 ,  4  )  =  81 KK,  1,  3) 

Bl  KK,4,5)  =  B(  KK,  3 ,  6) 

B 1  KK , 4 ,6  )  =  31  KK,  1,  5) 

Bl  KK,4 ,7 )  =  Bl  KK,  3,  B) 

Bl  KK,4 ,8  >  =  Bl KK,  l,  7) 

IF(ISTRFS.NF.O)  CONST  =  K 
IFUSTRFS.EQ.O)  C0NST=AINT4 
GO  TO  212 

231  DC  232  1=1,4 
EPSTIl IKK,  I)  =  0.0 
EPSPI l (KK,  I>=0.0 

232  SIGI11KK,  I  )  =  D.O 
IFlIPLAST(KK).NF.l)  GO  TO  237 
l  DUM  (  KK,  2 1  )  =  NOY  IL  Cl  IZONE) 

KY I LU=  NCY I LD (  IZONE) 

00  233  1=1, KY  I L D 
DUM1KK,  I)  =  SSTAR1  IZONE,  I  ) 

233  DUM1KK,  I  +  iO)  =  HSTAR(  IZGNE,  I  ) 

00  234  1=1, B 

234  OU Ml KK , l+2l)=0.0 

OU  Ml  KK,  27  )  =  S  S  T  ARl  IZONE,  1) 

GO  TO  200 

237  IF1IPLAST1KK).NE.2)  GO  TO  241 

0UM1  KK,  1  )  =  ALPHA!  IZONE) 

OUM(KK,?)  =  CAPPA(  IZONE) 

OUM1KK,3)  =  COSTH  :.DN6) 

I OUMl KK,4 )=0 

IF1CAPPA1  I  ZONE). EC. 0.0)  ICUM1KK, 4)=1 
OUMl KK,5)=0.0 
00  2  33  1=1,4 

238  OU  Ml  KK ,  I*5)=0.0 
GC  TO  2 00 

24i  I F  1 1  PL  AST  1  KK  )  .NE  .  3  )  GO  TO  23*> 

DU  Ml  KK ,  l )  =  COHESNl  IZONE) 


on  o 


*13 
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DU  Ml  KK*2J  '  FRCT  Nil  !Z  ON  E  ) 

DUMl  KK*  3 1  *  FRCTN21  IZONE) 

DUM1  KK*4  )  =  S  NSWCHl  IZONE  ) 

DUMl  KK,  5 1  =  CRE5  ID!  IZ ON P ) 

DU  Ml KK, 6 )  =  FRES  I  Cl  IZONE  ) 

I0UM1 KK,7 )  =  MY  IEL01  IZONE) 

1DUM1  KK,8  )  =  IRES  101  IZONE) 

I DUMl KK*9  )  =  JTFNSNl  IZONF  ) 

A J=  R J-R I 
BJ=ZI-ZJ 

AL  =  S  QRT 1 AJ*AJ  +  BJ  *BJ } 

COAJ/AL 
SI  =  BJ/AL 
DU  Ml KK , 10  )  =  CO 
DUMl  KK  ,11)  =  SI 
GO  TO  200  '•  ' 

C 

235  WRITE16,236>  NOOF EL  1 K  ) ,  IZON £,  IPL AST  1 KK  ) 

236  FORMAT  UH1, 23  HERROR  IN  ELEMENT  DATA,  L  1H  // 

110X,I2HELEMFNT  NU.  =  ,  15/ 10X,  12HZUNE  N3.  =,15/ 

210X,12HIPLAST  =,  I  5  ) 

CALL  EXIT 

r 

200  CCNTINUE 
C 

NUMCEL  =  NJMCEL  +NJM  EL  H 
NUMTEL=  NJMTEL  +NJMEL  3 
EFFECT =0.0 

WRITE  I  12)  NJMTEL  ,  NU  MEL  B,  1  NOOF  EL  1  K  ),  IPL  A  ST  1  K  ) ,  l  NP  (  K ,  J  )  ,  i  T  YPF  1  K  ,  J)  , 
ITHETA1K,  J)  ,J=  1,4),(  !C(<,  J,  I  ),  1=1,4), (B(K,J,  I), 1  =  1,8)  »J  =  l  ,6)  , 

2  1  (P1K,  J,  I  )  ,J=  U8),  iPST  I  UK,  I  ),EPSPI  UK,  I  ),  SIGI  1  ( K ,  I. )  ,1=1  ,4)  , 

3  1DUM{  K,  I )  ,  1=  1  *29),  EFFECT  »K=1»NUMFLB  ) 

IF  {NUMCEL.Lr  .NELCLS1  JCLUS  )  )  GO  TO  ICO 
JCLUS= JCLJS+1 
GC  TO  9 
END 


SUBROUTINE"  EL  OSH  IEL  AST ,  ISTRES,  E  l,E  2,  E  3  ,E4  ,E  5,C  ,NUME  ) 
DIMENSION  Cl  4 , 4  ) 

C**«*  FORM  STRESS-STRAiN  MATRIX 
DC  i  1=1,4 
DO  l  J=  1 ,4 
t  C(I,J)=0.0 

IF1IELA5T.NE.1)  GO  TO  20 
f.****  ISO)  RC°IC  ELASTIC  MATERIAL 
IF1ISTRES.EQ.2)  GO  TO  4 
C  AXISYMMETRIC  OR  PLANE  STRAIN  PROBLEM 
EBAR=E1/Ul.  +  E2)*(  1.-2.4F2)) 

CU,  l)=£6AR*{  1.-E2) 

Cl 1,2)=FBAR*E2 
CC1,3)=C(1,7) 

c(2,n  =  cii,?i 

C 1 2 ,2  )  =  Cl  1 ,  l  ) 

C(2,3)=C1 1,2 ) 

Cl  3, l )  =  C( i ,? ) 

C13 ,2)  =  C( l ,2  ) 

C(3,3)=Cl 1,1 ) 

C 1 4 ,4 )  =  EBAR*( 1 *-2  »*E2  )/ 2 • 


>vv^<if_jy«j.,v  , 


.  .  !  14 

RETURN 

C  PLANE  STRESS  PROBLEM 

C  ‘ 

4  EBAR=£i/< l.-E2*F2 ) 

CU,1)  =  EBAR 
C(3,i)=EBAR*E2 
1  C;i»3)=C(3»l) 

CI3,3)=C(1»1 ) 

C 1 4  » 4 )  =  EBAR* <  l.-E2)/2. 

RETURN”  ' 

C****  ANISOTROPIC  ELASTIC  MATERIAL 
C 

'  20  IF  ( I  EL  AST  .  NE  .2  I  G'O  TL’  30 
IF  (ISTRES.EQ.2)  GO  TO  2 
.  C !  1 » l )  =  1 1 

C( 1 .2 )=Ei-2.*F5  1 
C(l,i)=63 
C(2,l)  =  C(  1,2). 

‘  CC2,2  >  =CC 
C!2,3)=C(l»3) 

CI3,l)=CI 1,3) 

C(3»2)=C(2»3) 

C  (  3 » 3  )  =  E2  ' 

C  ( 4  » 4‘)  =  E4 

1  RETURN 
C 

2  C(1»1)'-2«*E5*(E1-2**E5)/F1 

'  C!1»3)=2.*E3*E5/El 

C(3,L)=C(l,3) 

C(3,3)=E2-E3**2/ El 

C 1 4 ,4  )  =  E4 

RETURN 

21  WR IT  E ( 6 , 3  )  IELAST,NUME.  ISTRES 

3  FORMAT  l  IHI/3IH  ERROR'  IN  ELASTIC  CONSTANT  DATA/ 

II3H  I  Ell  AST  1  =  ,  I5/13H  ELEMENT  NO.  =  ,  15/ 

21 3 H  ISTRES  =  ,  15) 

CALL  EXIT 
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31 


IFUELAST.NE.3)  GO  TO  2i 

COMPRESSIBLE  FLJIC 

I F ( 1ST  RES • EQ*  2 )  GO  TO  '21 

DC  31  I  =  L  *  3 

DO  31  J= 1,3 

CII , J)=E1 

RETURN 


END 


OVERLAY! MOHAN, 13,0  ) 

PROGRAM  LNK.2  ' 

COMMON  MAXNP,  MX CLS,  MX  ADJP,  MX/. ONE, MXN>3  ,N2()NE  S,  MXPE  l  3  ,NCMNP  , 

1  NUMEl,  ISTR  FS,  NUMP  FL, NUMELP, PERIOD, NMKCLS, FAC  TOR  ,ALAMB  , 

2  •  KTAPE.KRUN,  IPR  INT , NUMST, MX STR T , FUZ !  2 39) , 

3  IPEL TP,  IVT,NPlCOS,  IMPB X 

COMMON/ A/  U(  1 600  ) « 1 600  ) , NP3UT!  80) ,  "MPCL  S(  80  ,FNU(350)  , 

1  FNW ( 350 ) 

COMMON/ B/  NADJNP!  400),  I  TYPE!  400  ), THE TA ( 4C0 ) , XMA SS(400) , 
l  S NPJU ( 400  ) ,SNPUrt! 400 ), SNPWWt  400) , FA U ! 4C 0 ) ,F A W ( 400) , 


•  mu  i  '  ■ 


o  o  o  o  o  o  o 


!  $5  A-7* 

2  NPAD  J  ( 400  t  6  )  *  S  ACUU  (  400,  8  )  •  SADUW!  4  00,  8  )  ,  SAD V»  W  (  ACC ,  8 ) 

DIMENSION  ANAME(  18),  COM(  l ) 

EQUIVALENCE  ( MAX  NP»  COM{  1 )  ) 

MCHAN=5HMOAN 
I  PELT  P=  12 
I  NT=9 
NPRCDS  =0 
REWIND  I  NT 
REWIND  I  PELT  P 

RE  AO  (5,  I)  IT  MAX,  ERRMAX , NFAC, K TAP E ,  ICON  TU,0  VER  L  X 

1  FORMAT  (  I5,E1D.0»  315,  E10.0) 

I T  MAX  =  MAX  •  NO.  OF  ITERATIONS  PER  SOLUTION 
5RRMAX=  MAX .  ALLOWABLE  ERROR  (LBS) 

NFAC  =  INCREMENTS  FOR  NONLINEAR  SOLUTION 
KT  APE  =0  JSE  TWO  K  TAPES 
=1  USE  ONE  K  TAPE 

I C ONT J  =  0  CCNTINJE  SOLUTION  FDR  NONC  0\J  VERGE  NCE 
CVERLX= CV ER-R FLAX  AT  ION  FACTOR 
FACTOR=FLOAT  (  NFAC) 

WRITE  (6 ,2)  '  ITMAX,  ERRMAX,  FACTOR,  K  TAP  E,  ICONTtJ,OVERL  X 

2  FORMAT ( 1HI,7HITMAX  =,  I5/8F  ERRMAX=,  1PE15.5/6H  FAC  TOR  =  ,  1PE 1  5. 5  / 
18H  KT  APE  =,I5/8H  ICONT  J=,  I5/8H  0  VERL  X  =,  1PF  1  5.  5  /  /  ) 

IF  (OVERLX.LE.O  .0  )  CALL  EXIT 

REWIND  8 

DC  1  I=I,NUMNP 

3  READIB  }'  N,  NPOUT (  1  ),NPOJT(  I ),  (  NPOUTl  J  ) ,  J  *  I , M XAD  JP  ) 

RE  AD  18  5  NMKCLS,  (  NPLOW  ,  NPHIGH,  NPOUK  I  ),NLMCP  ,NE  LC  L  S  ,NMI»C  L  S  ( I  )  , 

I  Is  I , NMKCLS ) 

READ13)  (NPLOW, NPLOW,  I=1,NUMNP> 

READ(8  )  ( J  (  I  )  ,  W  (  I),  I»  l,  NUMNP  ) 

REWIND  8 

16  WRITE! 6, 17) 

17  FORMAT ( IHI,16HELAST IC  SOLUT  ION //AX, fcHK ERROR , AX , 6HNERR0R , 1 4  X , 
16HERRCNT, 1AX , 6HERRM AX , AX , 6F ICOUN T , 5X , 5H I TMA  X, 7X , 3HI N T  ,A X  , 
26HIPELTP// ) 

I C  OU  NT  =  1 

18  CALL  ERROR(KERROR,  ERRMAX,  1,  NERROP. ,  ER  ICN  T  ,0  VERL  X ) 

WRITE (6, 19)  K ERROR, NFRROR, ERRCNT,  ERRMA  X  ,  ICOUN  T  ,  I TMA X  ,  I  NT  ,1 PT L T P 

19  FCRMAT <2110, 1P2E20. 5, 41  10) 

ALAMB=0.0 

IF(KERRCR.EQ.O)  GO  TO  22 
IFdCOUNT.EQ.  ITMAX)  GO  TO  20 
IFUCOUNT.EQ.  ITMAX)  GO  TO  2C 
I  COUNT  =T COUNT  +1 
GO  TU  18 

20  WRIT  E ( 6 ,21 ) 

21  FCRMAT  (//39H  HAVE  NOT  CONVERGED  TO  ELASTIC  SOLUTION//) 

22  IF (NUMPEL.EQ.O )  GO  TO  27 
DO  23  ICLJS= 1, NMKCLS 

I F (NMPCLS ( ICLUS ) . EQ .0 )  GO  TU  23 
NUM=  NMPCLS  (  I  CLUS  ) 

DO  24  1=1, NUM 

2A  CALL  PLASTF(0,0,  ICLUS, 0,  I) 

23  CONTINUE 
WRITE(6,25)  ALAMB 

25  FCRMAT"!  7/7IH  -ELASTIC  LOAD  FACTOR  =,  1PE 20 . 5/ / ) 

IF (ALAMB. LE. 1 .0 )  GO  TO  27 
IFULAMB.LT. l.OE  +  38)  GO  TO  5A 
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fu 

AA=0 . 3 

WRITE!  INT  )  {  COM!  I  ),  1=1,  16) 

DO  55  1=1* NJ  MNP 
56  WRITE! INT )  AA, AA 
ALAMB=2.3 
GO  TU  56 
54  CONTINUE 

DO  26  1=1* NJ MNP 
U  (  I  )  =  J  (  D/ALAMU 

26  W(  I  )=W (  I )/ ALAMI3 

27  WRITE!  INT  )  (  COM!  I  ),  1=  1.  16 ) 

DC  38  1= l *  NJ  MNP 

30  WRITE!  INT)  J(  I),w!  I) 

53  IF (NUMPEL.EO.O )  RETURN 
DO  42  ICLJS= l.NMKCLS 
IFtNMPCLS!  ICLJS)  .FQ.O)  GO  TO  42 
NUM=NMPCLSt  ICLUS  ) 

00  4  3  I  =  1 ,  N'J  P 

43  CALL  PLASTF!  1,  l*  ICLUS*  0»  I  ) 

42  CONTINUE 

IFIALAMB.LE. 1.0)  RETURN 
56  IF(KERRCR.EQ.O )  GO  TO  52 
IF  i  ICONTJ.NE.O  )  RETURN 
52  CONTINUE 

FAG* (ALAMB-i .0 )/ FACTOR 
DO  2d  1=1, NU MNP 
U ! I ) =U l  I ) *FAC 

28  W(I)=Wl I  1 ♦FAC 

DO  36  I F AC= 1 , NFAC 
I C  OU  NT  =  1 

32  CALL  ERRQRIKERROR, ERRMAX , C, N ERROR, FR 3CN T , OVERl X) 

WRITE  (6, 19  )  K  ERROR,  NERROR,  ERR  CN  T ,  ERRMA  X  ,  ICO  UN  T  ,  I  TMA  X ,  I  NT  ,  I  PE  I.  T  P 

I F ! KERRCR. NE .0 )  GO  TO  31 

35  DC  41  1=1, NJ MNP 

41  WRITE!  INT)  U!  Ii,W!  I  ) 

DC  29  I CLJS= l , NMKCLS 
I F ! NMPCLS ! ICLUS ) . EU  .0 )  GO  TO  29 
NU  M=  NMPCLS  {  I  CL  JS  ) 

DC  30  1  =  1, NUM 

30  CALL  PLASTF!  1,1,  ICLUS,  IFAC,  I) 

29  CCNTINUE 

WR IT  E ! 6 , 37 )  IFAC 

37  FORMAT  (  //  32H  HAV  E  FINISHEC  PLASTIC  INCREMFN  T ,  !  5//) 

NPRCDS  =  NPRCDS  + 1 
I F ! KERRCR. EQ.O )  GO  TO  36 
IF ( ICONTJ.NE.O )  RETURN 
GO  TO  36 

31  IFUCOUNT.EO.  ITMAX)  GO  TO  33 
I C OU  NT  =  ICOUNT  +  1 

GO  TO  32 

33  WR I T E ( 6 , 34 )  IFAC 

34  FORMAT  !  //  5  7H  HAVE  NOT  CONVERGED  TO  PLASTIC  SOLLTION  FOR  INCREMENT 
INC. , 15//  ) 

GC  TO  35 

36  CONTINJE 

REWIND  I  PELT  P 


o  o  o 


‘WIU'I 


Troupe 


a-8o 


REWIND  INT  J  ]  7 

RETURN 

END 


SUBROUTINE  ERROR! KERROR»  ERRMAX, KSWT0H,NERRQR,ERRCNT,0 VERLX) 
COMMON  MAXNPf  MX CLS, MX ADJP » MXZ ON E, MXNPB , NZONES, MXPE LB ,NOMNP, 

1  NUMEL,  ISTRES,NUMPEL,NUMELP, PERIOD, NMKCLS, FACTOR, ALAMB, 

2  KTAPE,  KRJN,  IP R INT »NUMST,MXSTR  T,FUZ(239), 

3  IPELTP,  INT,NPRCDS*  IMPBX 

COMMON/ A/  U(  1600  5  , W<  1600),NP0UT!  80  ,  NMPCL  S!  8C  5  ,FNU(35C)  , 

1  FNW ( 350 ) 

COMMON/ B/NAOJNP!  400  5,  ITYPE!  400  5,  THETA!  4  CO) ,  XMA  SSt  400)  , 

1  S  NP'JU  !  400  )  ,SNPUW(  400  ),  SNPWW!  400)  »  FAU !  4C0  )  ,F A W l  400 )  , 

2  NPADJ1400',  8  ) ,  S  ACUUl  400, 8  ),  SADUW!  400, £) ,  SAD!,  M4CC,  8) 

DATA  IRT/1/ 

C  KSWTCH=0  DC  NONLINEAR  PART  OF  ANALYSIS 

C  =1  DC  ELASTIC  ANALYSIS  ONLY 

IF(IRT.EU.O)  GO  TO  100 
I  RT-0 

I  SWT  CH=0  . 

JS  WT  CH=0 
REWIND  10 
REWIND  l 
DO  5  I=l,MXNPR 
FNU! I >=0.0 

5  FNW! 1 1=0,0  •  ‘ 

IF  (<NUMNP.LE*;4XNPB)  .AND.!  NUMPEL  .EO.O)  )  ISWTCH  =  1 

IF! KT APE.NE.O  )  JSWTCH=i 

IC=0 

1  IC=IC+1 

READ(IO)  NPLOW, NPHIGH,NP3UT(  IC ) , NUMCP ,NELC L S, NMPC L S (I C )  , 

1NUMNP8,  tNACJNP!  I  ),  I  TYPE!  I  ),  THETA!  I) ,  XMA  SS(  I  > ,  SNPUU!  I  )  .SNPUWd  ) 
2SNPWW !  I  ) ,  FAJ  (  I  ),  FAW!  I  !,  (NPADJ!  I,  J  ),  SADUL!  I  ,  J)  ,  SADUW!  I  ,  J)  , 
3SADWW! I , J ) , J  = 1 , MX  ACJP  ),  I  =  1,NUMNPB  ) 

IF(ISWTCH.EQ.l)  GG  TO  4 
IF(JSWrCH.EQ.l)  GO  TO  2 

WR  IT  E  C 1 )  NPLOW, NPHIGH,NP3UT!  IC ) , NUMCP , NELC L S , NMPC L S ( I C )  , 

1NUMNPB,  TNACJNP!  I),  ITYPE!  I  ),  THETA!  I ) ,  XMA  SS(  I  ),  SNPUU!  I  )  ,SNPUW(I  ) 
2SNPWW  !  I),  FAJ!  I),  FAW!  I  ),  (NPADJ!  I,  J  ),  SADLU!  I  ,  J)  ,  SADUM  I  ,  J)  , 
3SADWW  (  I  »J)  ,J=  ifMXADJP  ),  I=1,NUMNPB) 

2  IF (NUMCP.LT. NJMNP  )  GO  TO  1 
REWIND  10 

REWIND  1 

IF  ( JSWT  CH.  EQ.  I")  GO  TO ‘3 
10=1 

GO  TO  100 

3  10=10 

4  REWIND  10 
IC=10 

100  IFUISWTCH.  EQ.l).  OR.!  JSWTCH.EQ.  1))  GO  TO  101 
IF(IO.EG.IO)  GO  TO  10  2 

10=10 
GC  TO  103 
102  10=1 
103  CONTINUE 

101  KERR0R=0 
NERRUR=0 
ERRC  NT  =  0 .0 


*  a  IMS  Out*  *  i  - 


DC  1U4  ICLUS=  1»  NMKCLS 
IF (KSWT CH.FC.  I )  GO  TU  113 
IF (NUMPEL.EQ.O  )  GO  TO  113 
IF (NMPCLS ( I CL US ) .  EU  .0  )  GO  TU  113 
00  114  I = 1 » MX  NPB 

fnu(  n-o.o 

114  FNW ( I )=0.0 

NU  M=  NMPCLS ( I  CL JS  ) 

DO  115  1=1, NJM 

115  CALL  PLAST  F( 0 , 1,  ICLUS ,0,1) 

113  IFUSWTCH.EO.l)  GO  TO  105 

RFAD(IO)  NPLCW,  NPHIGKNPO  , NUMCP , NELC L S , NMP  , 

1NUMNPB,  (NACJNP(  I),  ITYPE(  I  ),  THETAC  I ) ,  XMA  SS(  I  ),SNPUU(I  )  ,SNPUW(I )  , 
2SNPWW(  I  )  ,  F  A  J  (  I  ) ,  F  A  m  (  I  ),(  MPADJ1  I,  J  ),  SADUL(  I  ,  J)  ,  SADUWU  ♦  J)  , 

3  S  A  DW  W  (  I  »  J )  » J=  1  *  MX  ADJ?  ),  I=i,NUMNPB) 

105  NUJWi'N PLOW- -Nip OUT  (  ICLJS) 

NHGH= NPHI Gh-NPOJ T (  ICLUS  ) 

IF (KSWTCH.EQ.O )  FAC=(  1 .0- 1 .0/ AL AMB ) /FAC  TOR 

IF (KSWTCH.EQ. 1)  F AC=1 .0 

DO  105  1=  NLOW , NHGt 

ERRU=0.0 

ERRW=0.0  " 

L=  I  +  NPOUH  ICLJS  ) 

IF  CITYPEI l ) . EQ.2 )  GO  TO  106 

I F  { ! T Y PE (  H.E0.3)  GO  TO  1G8 

E  R  RU  =  F  NlJ  (  I  )  ♦  F  AU  (  I  )  ♦  FAC 

ERRU=  E  RRJ -SNPJU (  I )*U(  L )-SNPUW(  I )*W(  L ) 

NUM=  NADJNPI  I  ) 

DO  107  J=l,MJM 
NP=  NPAD J ( I,J) 

107  ERRU=  ERRU-S  ADUJ  (  I,J  )*U(NP  )-SADUW(  I,  J  )*W(NP  ) 

IF  (ABS  (  ERRU )  .GT.ERRCNT  )  ERRCMT=ABS(  E1RU  > 

IF(ABS(ERRU).LE. ERRMAX  )  GO  TO  116 

IF(ABS (ERRU) .LE. ERRMAX  )  GO  TO  116 
KE  RRQR= 1 
NE  RRQR=  NERROR+l 

116  U ( L) = J ( L )  +  OVERLX*FRRJ/SNPUU(  I) 

IF (ITYPE( I ) *  tO. I )  GO  TO  106 

108  ERRW=FNW( I )+FAW( I  )*FAC 

FRRW=  ERRW-SNPJW (  I )*U(  L )-  SNPWWl  I )*W(L  » 

NUM=  NADJNPI  I  ) 

DO  107  J= 1 ,NJM 
NP=NPADJ(  It J) 

NPR=  NP-NPOUT (  ICLJS  ) 

OC  110  K= l »MX  ADJP 
KK=  X 

IF(NPADJ(NPR«K).EQ.L5  GO  TO  112 

110  CONTINJE 

WR  IT  F.  (6,111)  ICLUS,  NLOW,  NEGH,NPOUT(  ICLUS) ,  I  ,L  ,NP  ,  NPR 

111  FORMAT ( 1HI,?4HERR0R  IN  COMPUTING  SA0WU//8I5) 

CALL  EXIT 

112  SADWU=SADJW(  NPR,KX) 

109  ERRW  =  ERRW-SAOffU*U  (  NP  )-S  ADWW(  I,  J  J*W(NP  ) 

IF  (ABS  (  ERRW)  .  GT  .  ERRCNT  )  F.RRCN  T =ABS(  EIRW) 

IF (ABS ( ERRW) .LE. ERRMAX )  GO  TO  117 
KERROR= 1 

NFRR0R=AFRR0R+1 

117  W(L)  =  W ( L )  +  OVEftLX*ERRH/SNPWW(  t) 

106  CCNTINJE 
104  CONTINJF 


noon 
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REWIND  10 
RETURN 
FND 

SUBROUTINE  PL  AST  F(  LSWTCH, MSWTCH,  ICLUS,  IFAC,  INUM)  . 

COMMON  MAXNP,  MX  CIS,  MX  ADJ  P ,  MXZ  ON  6,  MXN’B',  NZ3NE  S ,  MXPEL3  ,NLMNP, 

1  NUMEL,  ISTRES.NUMPFL, NUMELP, PERIOD, NMKCLStFACTOR,AlrAMB,  . 

2  KTAPF,KRUN,  IPR  !NT ,  NUM ST,  M XSR T,FUZ<  2  39 )  t 

3  IPELTP,  INT,NPRCDS,  IMPBX 

COMMON/ A/  U!1600),W(  l600i,NP3UT(  80) , NMPCL SI  80)  ,FNU(350>  ',  ' 

1  FNioT (  350  T 

COMMON/ B/ NAD JNP( 400 ),  JTYPEl 400 1 ,  SHE TA { 4C0 ) , XMA $  St 4C0)  » 

1  S  NPUU  ( 400  )  » SNPUW  (  400  )  ♦  SNPWWt  400 )  »  FAU I  4C 0  )  ,;F  A  W 1 400 )  * 

2  NPAD JI400  »  8  )  *  S  ADUJ  {  400»  8),  SADUWI  400, 8) , SADVWI400, 8) 

DIMENSION  BUFFI  3280 ) 

EQUIVALENCE  I  BUFF, NADJNP  I  1 

DIMENSION  NOOFELI  24  )»  IPL  ASTI  24  ) ,  NP  (  24,  4  ),  I  TYPE  (24,4)  ,  THE  TA  (24  ,4  ) 
IC(  24,4,4 ),  B(  24,4,  8  >*P(  24,  8,4),  EPSTI  i(  24,4)  ,EPSP.1 1(24,4), 
2SIGI1(24,4),DJM(24,  29),  IDUM(  24,  29) 

EC'UI V ALFNCE  I  BUFFI  l),N00F6L  ),  I  BUFFI  25),  IPLAST)  ,<BUFF  (49)  ,NP)  , 

1  I  BUFFI  145  )»!TYPE)»(  BJFFl  241),  THETA  ),  I  BUFF  I  337)  ,C  )  ,  (3  UFF  I  72 1  )  ,  b  )  , 

2  IBUFFT 14891,  P  ) » {  BUFFI  22  57),  FP  ST  1 1 ),  ( BUFFI  2353)  ,EPSPI  1 )  , 

3  (BUFFI2449  ),S  IGIl  ),(  BUFFI  2545),  DUM  ) ,  ( BUFF  (»2545  )  ,  I  Dl,M  ) 

DI  MENS  1CN  EPST  1(4  ),  EP$P  II  4  ) ,  S  I G  II  4 ) »  fcP  SU 1 1  4 ) ,  X  (  8)  ,F PLA  S  T  1 8)  * 
l EFFECT  I  24  ) 

DIMENSION  STRESS(4),STRAIN(4),PSTRAN(4),CMAT(4,4)i,FMAT(4,4)  , 

1  GMAT(4,4),S  IGNI1(4),SIGNBI(4) 

LSWT CH=0  DC  NOT  JPOATE  ELEMENT  TAPE 

=  1  JPDATE  ELEMENT  TAPE 

MSWT  CH=0  FIND  ALAMBVALUE  ONLY 
-I  DC  ALL  NONLINEAR  PART 

I  0= I  PELT  P  • 

IFdO.EC.12)  JO-  3 

IF ( I  0. EC.  3)  J0= 1 2  , 

L=  I  ♦ NPOUT ( ICLUS  I 

RE  AO  I  I  0)  NJMCEL,  NELbUF,  (NOOFELIK  ),  IPL  A  STI  K  ) ,  (  NP  I K  ,  J )  , 
1ITYPE(K,J),TMETA(K,J),J  =  1,4),((C(K,J,I  ), 1  =  1, 4),  ID  IK, J, I), 1=1, 8), 

2  J=l,4)  *  (  (PIK,  J,  I  ),J  =  l,8),EPST'li{Ki  I  ),EPSPI  KK,  I)  ,SISI  l  (k,I  )  , 
31=1,4), I  DJM(K*I),  1=1,  29  ),  EFFECT!  K  ),K  =  l,  NELBUF  ) 

DC  3  1=1, NEL  BJ  F 
DC  5  J= l , 4 

N=  NP  1 1  ,  J  )  ' 

K=  2  * J-l 

IFIJ.E0.4)  GO  TO  6 

8  IFUTYPEI  I,J  I.EQ.i)  GO  TO  7  i 

X(K)=U{NT 

X  I K+l ) =W I N )  , 

GO  TO  5  , 

7  X I K) =U ( N) *COS I T  HET  A(  I, J ))-W(N)*SIN(  THETA!  I,  J)) 

X(K+1)=U(N)*S  INI  THETA!  I,  J)  >*W(N  )*COSI  THETA!  I ,  J)  ) 

GO  TO  5 

6  IF IN.NE.O )  GO  TO  8 
X  I  7 ) =0  «0 
X  I B ) =0 ,0 

5  CONTINUF  ' 

DC  19  J=  1,8 

IFIXI Jl .EQ.D.O)  GO  TO  19 
GO  TO  18 
19  CONTINUE 
GC  TO  3 


I 
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18  DC  9  J=i',4  '  20 

EPSt  I(J)  =  EPSTIHI,J1 

DO  9  K=l,8  .  \ 

9  EPST  l  (  JWEPVr  I C  J  r+B(  I.  J,K  )*  X  ( K  J 

ifiiplasti  n.NE.n  go  to  200  • 

L=  I 

CALL  MISES  (L»  EPST  I,  EPSP  It  S  IGl,  EP  SOI  ,  EEFF I  ,  $Vl  ,  SMA  XI  ,  SI  ,MS'wTCH, 

1  LBLAMB) 

IFIMSWTCH.EQ.O )  GO  TO  400 
I F  ( LSST  CTVEQ70T  GO  TO  100  ' 

1  DC  101  J=i,t  ! 

■  101  DU Mi 1 , J+2 1 1=  EPS  D1 1  J 1 

DUMI 1 ,26)‘=EFFFI 

DUMI  l  ,27)  =  SY  l  1 

DUMI  1,28  )  =  SMAXl 

DUMI  I  * 29  r=5T  '  ; 

•100  tONTINUE' 

GC  TO  300  1 

200  IF (I  PL AST ( I) cNE.2  )  GO  TO  500 

’  L=  l  i  , 

CALL  COULMRI  L ,  EPST  I  *  EPSP I »  S  IG I ♦  KORNEV  ,  F  YLD  I  ,FP  $D l  ,MSwTCH  ,BLAMb) 
IFCMSWTCH.^Q.O)  GO  TO  400 
IF (LSHTCH.EQ.O)  GO  TO  201 
i  IDUMI I ,4)=K0RNER  1 

DUM(  I  ,5)  =  FYLDI 
DO  202  J=l,4 

.  202  DUMI  l,  J*5)  =  FPS0!<  J) 

201  CONTINUE  ,  1 

GG  TO  300 

,  500  IF (1  PL AST ( I ) . N£«3 )  GO  TO  900 
L=  I  ' 

•  CCHESN=CUM<  I  ,  11 
•  FRCTNl  =  DUM(I  ,2) 

FRCT N2= CU Ml  I »  3 ) 

SNSWCH«CJM(I,4) 

CRES  I  D=CUMI  I  »  5  ) 

FRES  I  D=  DJMM  *  6  1  - 

MY  I  ELD=  ID'JMI  !  »  7  1  , 

IRESID=  IDJM(  1,8) 

JT,ENSN=IDUM<  I  ,9) 

COSTH=DUMt  I,  10) 

SI  NT  H=  DUMI  I,  1 1) 

DO  501  J= 1,4  , 

■  STRESS  I J)*St  G  l  ll  I ,  J  } 

ST  RAl Nl J 1  =  EPS  Till  I,  J) 

PSTRANU  )=  EPS  P  1 1 1  l,;J) 

DO  501  K=l,4 

501  CM  AT  $  J»K)  =  CI  I ,  J ,  K  ) 

CALL  NCqjLlL, EPST I, ST RA IN, EPSP I, P STR AN, SIG I .STRESS, 

1 COHES  N»  FRCT Nl  *  S  NSWCH,  FRCTN2,  CRES  ID, 

2FRES  E,  D  •  MY  I  ELD,  IRES  1C,  OT  ENSN.CMAT,  ISUES, 

3MSWTCH,SBAR,  HLAM8,C0STH,  SINTH,  FMAT,G^AT,  , 

4SI GNl 1 ,0,S IGNbl) 

'  IF  IMSWT'CH.EQ.U  1  GO  TU  400 
IEILSWTCH.EO.u)'  GO  TO  300 
DU  Ml  I ',  l  )  =  COMES  N  '  i 

OUMI  I,2)=FRCTN1 
DU  MU,  31  =  FRCT  N2 
DUdCI  ,4')  =  SNSWCH 
DUMI I  ,5)  =  CRES  ID 
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DUMl  I,6)*FRFS  ID 
IDUM(I,7)  =  MYIELD 
f  DUM! I  ,8  )  = IRES ID 
IDUHJ I  ,97=  JTENSN 
DU  Ml  I » 10  )  =  COS  T  H 
OUMll,  U)  =  SINTH 
GO  TO  300 

900  WRITE16  *90  l )  NUOFEL!  I  ),  IPLAST!  1  ) 

901  FCTRMAT 1THI » 15HERR0R  TM“  PL  ASTF//2 15) 

CALL  EXIT 

300  IF (LSWT CH. EO.  I )  GO  TO  301 
OC  12  J=l,8 

FPLAST (J)=0.0 
00  12  K=  l »  4 

12  FPLASTTjr=TPL  AST!  J 1  4PT  IV  J, KT*rEP  SP I  l  <  )-  EP  SP  II U  , K ) ) 

301  CONTINUE 

IFILSWTCH.EQ.O)  GO  TO  10 

DEPS=0.0 

0020 J= 1,4 

CUMMY*EP$PI(  J  J-EPSP  Il(  I,  J  ) 

iFij.Fgv*nco  to  2r  ' 

DE  PS*  DEPS  +  C'JMMY  ♦DUMMY 
GO  TO  20 

21  DEPS  =  DEPS«-CJMMY  +  0UMMY/2.0 
20  CONTINUE 

EFFECT (I)  =  EFFECT!  I ) 4SQRT ( 2 .♦DEP S/ 3. 0 ) 

do  rr”j*i,4 -  - 

FPST  I1!I,J)=EPST  KJ) 

EPSPI1 1  I,J}*EPSPI(J) 

11  SIGIKIf  J1*SIGI(  J) 

10  CONTINUE 

TFTLSWTTHTFQ .TTDO'  TO  ‘  3 
00  13  J*  1 ,4 
NCDE=NP! It J) 

K=2*J-l  • 

N*  NQDE-NPGUT  (  ICLUS) 

IFIJ.EQ.4i  GO  TO  14 
16  IF ( ITYPFITt J ) . EQ.l)  GO  TO  15 
FNU ( N)  =  FNU ( N ) +FPL  AST ( K  ) 

FNW(N)*FNW(Ni 4FPL ASTIK+l J 
GO  TO  13 

15  DU  MU*  FPLAST  I K  l*COS(  T  HET  A(  I»  J  )  i+FPL  AST  I  K>  1 1  ♦SIN!  THE  TA  ( I  ,  J)  ) 

DU  MW* -FPLAST  (  K  >  *S  I N I  T  HET  A(  I,J  )  )♦  FPL  AST  I K+ 1  )*COSC  THE  TA  ( I  ,J)  ) 
FNU!T?1*FNUTN  J  ♦DJWU 
FNW!N)*FNW!N)+DJMW 
GO  TO  13 

14  IF  INODE. NE.O i  GO  TO  16 

13  CONTINUE 

4Q0  IF (MSWT  CH.EQ. 1 )  GO  TO  3 

IFUBSIILTSPB)  .DT  .  AL  AM9 )  ALAMB=ABS(  BL  AMB  ) 

3  CONTINUE 

IFILSWTCH.EQ.O)  GO  TO  17 

WRITE(JO)  NJMCEL*  NELBUF,  (NOOFELIK  ),  IPLA ST! K ) , ( NP t K ,  J )  , 
1ITYPE(K,J),THETA!K,J),  J*  l,  4  ),  I  (  ClK,  J,  I  )  ,  I  =  1 » 4  )  ,  (B  I K,  J  ,  I  )  ,  I  =i  ,8 ) 
2j=if^TnrPTK,j,n,j=i,8),EPSTii!K,n,EPSPiiiK,n,smi(K,i» , 
31*1,4)  ,  (DU  MU,  I),  1=1,  29  ),  EFFECT! K  )*K  =  l,NELbUF  ) 

WRITE!  I  NT)  NFL  BJ  F, !  NOOFEL  !  I),  EFFECT!  1  ),  INP  !  I,  J  )  ,EPSTI  1  (I  ,  J)  , 
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IEPSPII  (I«J)«  (  C<  I*  J,K  ),<  =  !, 4),  J«l,  4),  i»  l  ,NElBUF  ) 

I F  ( (  I  PR  l  NT  .NH.7).AND.(  IPRINT.NE.99)  )  GO  TO  17 
IF  ( ICLUS.NE.  1  )  GO  Ft)  60 
I  F ( I NUM.NE  .1 >  GO  TO  60 
WRITE  16,30) 

30  FORMAT  (1  HI  »l'JX»2HFS TRESSES  IN  PLASTIC  ELEMENTS//) 

IF | IFAC.NE.O )  GO  TO  40 
WR 1 T  E 1 6 , 35 ) 

35  FORMAT (5X, 16HELAST  IC  SOLUTION/) 

GO  TO  50 

40  WR IT E (6  »45 ) I F  AC 

45  FORMAT  (  2  3H  PLASTIC  INCREMENT  N0.=,I5/) 

50  WRITE  (6,55) 

55  FORMAT  (  12H  EL.  NJMBFR  ,  8X  ,  12HS  I  GMAl  (  P  S I  ),  8X,  1 2H  SI  3MA  T  (PSI),BX,12 
IHSIGMAZ  (PSI)f8KfI2H  TAU  (PSD/) 

60  WR  ITE  (6  ,65  )  (  NOOFELI  X),(SIGll(K,  I  ),  I  =  1,  4  ),K  =  l,NElBUF ) 

65  FORMAT! I7.9X, IP4E20.5) 

17  IFtNUMCEL.LT .NJMELP  )  RETURN 
RFwlNO  10 
RFWIND  JO 

IFILSWTCH.EO.  I)  IPELTP=JO 

RFTURN 

END 


SUBROJT  INE  M  I S ES  (  I,  FPST  I,  EPSP  I,  S  IGI  , EP  SDI , EEFF  I  ,  SYI  ,SMAXl  ,SI  , 

1 MSWTCH, BLAKB ) 

COMMON  MAXNP, MX  CLS, MX  ADJ  P»  MXZQN  E»  KXNPB » NZONE  S  * MXPE  L3 , NLMNP , 

1  NJMEL, ISTRES,NUMPFL,NUMELP, PERIOD, NMKCLS, FACTOR, ALAMB, 

2  KTAPEtKRUN,  I  PR  I  NT  ,  NUM  ST ,  MX  STR  T»FUZ(239), 

3  IPELTP,  INT,NP<CDS,  IM.PBX 

COMMON/ A/  U(  1600  ),M(  1600  ),NP3UT(  80)  ,  NMPCL  SI  80  ,FNU(3  5C)  , 
l  FNW ( 350  ) 

COMMON/ B/  NADJNP(400),JTYPE(400),SHETA(  4CC ) ,  XMA  SS  (400)  , 

1  S NPUJ ( 403  ) ,SNPJW(  400 ) , SNP WW(  400 ) , F U LI 4CC) ,FA W (400 ) , 

2  NPADJ(400,8)»SACUU( 400, 8 ) , SADUW ( 400 , 8 ) , SAD k W( 4C0 , rt ) 

DIMENSION  8JFF(  3280) 

EQUIVALENCE  ( BJ F F, NADJNP  ) 

DI  MENS  ION  NOOFELI  24),  1PL  AST(  24),NPl  24,  4  ),  I  TYPE  (24,4)  ,  THE  TA(24  ,4)  , 
1C(24,4,4),B(24,4,8),P(24,8,4),EPSTI1(  24 ,4  )  ,  EP  SPI 1  (24 ,4 )  , 

2SIGII  (24,4),  DJM(  24,  29  ),  IDUM<  24,  29) 

EQUIVALENCE  (  BJFF(  1  ),  NUOFEL  ),  (  BUFFI  2  5 )  ,  IPLA  ST )  ,  (B  OFF  (  49)  ,NP)  , 

1  (BUFFI  145) ,  IT YPE),(  8JFF(  241),  THETA  ),( BUFF (  337)  ,0,(3  UFF  ( 721  )  , B )  , 

2  ( BUFF  (  1489  ),P),(  BUFFI  22  57  ),  EP  ST  ID,  I  BUFFt  2  353)  ,EPSPI  l)  , 

3  (BUFF  (2449  ),S  IGI1 ),  (  BUFF(  2545),  DUM  )  ,  (  BUFF  (  2545  )  ,  l  DUM ) 

DUM(  M,  1  )  =  SST  AR(  M,  1 ) 

0UM(M,11)  =  FSTAR(M,  1) 

0UM(M,21)  =  N0Y  ILD(M) 

0UM(M,22)  =  EPSDIlfM,  I) 

DUM(M,26)  =  EFFFIl(M) 

DUM(  M,27  )  =  SY  1  l(M) 

0UM(M,28)  =  SMAXIUM) 

DUM(M,29)=S! I (M) 

DIMENSION  EPS  T  1(4),  EPSP  l(  4  ),  S  IG  I  (  4 ),  EP  SO  I  (  4  ) 

DI  MENS  I  ON  SI  GBAR(  4 ) ,  S  IGM  A(  4  ) ,  EP  ST{  4  ) ,  EP  SO (  4 )  ,OEP  SO ( 4 )  ,  SI GMA T  (4  )  , 
lESTAR(lO)  ,SST  AR(  10),HSTAR(  10),EPSDI  l(  4  )  ,DEP  SP  (  4) 

NOYI LD= I OU  M(  1,21  ) 


!  23 
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DC  400  J=1»N0YILD 
SSTARl J}=DUM(  I,J) 

400  HSTARI  J)  =  DUM(  I  *  J  ♦  10  I 
0C  401  J=1,S 

401  EPSDI1I  J)  =  DJM(  I,  J+21) 

EEFFI 1  =  DUM( 1,26) 

SY  1 1  =  DUMI 1 ,27  ) 

SMAXll*CUM< 1,28) 

S I  Is  OU  M ( 1,29) 

c 

ES  T  AR( 1 )=3.3 

IF (NUY IIO.EQ. 1)  GO  TO  8 

DC  7  J*2,NCYILD 

7  ESTARl  J )*EST  ARI  J-l )  ♦(  SST  AR(  J  )-SSTA*( J-  l ) » /HSTAR  I  J- 1 ) 

8  00  I  J=  1,4 

SIGBARI  J)=CT.3  ' 

00  1  K=  1 ,4 

l  SIGBARI J)=S IGBARI J)+C<  I,  J ,  K  )♦  I  £P  ST  1 1  K  )- EP  SP  1 1 1  I  ,K  ) » 

SBAR=  CABS  (SIGBARI  1) -SIGBARI  2 )  )  )**2*I  AB  S I  SI  GBAR  1 1)  -  SI  GBAR  ( 3  )))  **2 
1  ♦ I ABS I S I GBAR I  2 ) -S IGBARI  3  )))**2+6 .* I AB SI SIGBAR (4) ) )♦*? 

SBAR=SQRr  (SBAR/2.  ) 

IFIMSWTCH.EQ.il  GO  TO  3 
C 

BLAMB=$ BAR/S Y II 
RETURN 

3  IF  IS  BAR.GE.S Y II  )  GO  TO  10 

C  CAS  •  l  OR  3 ,  NOW  ELASTIC 

IF  (b  ciAXII  . GE.SY 1 1  J  CO  TO  20 

C  CASE  =1  ALWAYS  WAS  ELASTIC  AMO  STILL  IS  ELASTIC 
I  CASE*  1 
DC  4  J= 1 , 4 
EPS  PI  I J  )  =  0  .0 
SIGI I J )=S IGBARI J  ) 

4  epsonn^.o 

EEFF 1  =  3  .0 
SY I  =  SY  1 1 
SI =S  BAR 

IFISBAR.GT.SMAX  11  l  GO  TO  5 
SPAX I  =  S  MAX  1 1 
GO  TO  6 

5  SMAX I =S  BAR 

6  RETURN 

C  CASE  =  3,  WAS  PREVIOUSLY  PLASTIC, NOW  ELASTIC 

20  ICASE=3 

00  21  J= 1 ,4 

EPS  PI  (  J  J  =  EPS  Pill  I,J  I 

SIGI I J)=S IGBARI J ) 

21  EPSDI I J  1=0 .0 
EEFFI=EEFF  II 
SY I  =  SY  1 1 
SPAXl=SYI 
51=5 BAR  * 

RETURN 

C 

10  IFIS8AR.GT.SYI1  )  GO  TO  30 
C  CASE  =  2  OR  4,  JUST  AT  YIELD  STRESS 

I F  IS  MAX  1 1  .GE.SYIl  )  GO  TO  23 
C  CASE  =  2,  WAS  PREVIOUSLY  ELASTIC,  NOW  ON  VERGE  OF  FLOW 
I  CASE*  2 
GC  TO  24 
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C  CASE  =  4,  WAS  PREVIOUSLY  PLASTIC,  NOW  ON  VERGE  OF  FLOW 

2  3  ICAS  E  =  4 

c 

24  00  22  J=  l » 4 

EPSPi  (  J)  =  EPS  Pill  1.  J  ) 

22  SIGI ( J )=S IGB AR! J  ) 

EPSDI(1)=(2.*S!GBAR(  1  )-  SIGBAR(2)-  SIGBAR (  3)  )  /  ( 2  .  *  SBAR ) 

EPSOI  ( 2  )=  (  -S  IGBAR(1)+2.*SIGBAR(  21-  SIGBAR  (  3)  )  /  (  2  .  *  StJAR) 

EPSOI ( 3  )= (  -SIGBAR! 1)-  S IGBAR ( 2) +2.* SIGB AR ( 3)) / (2 . *  SB AR) 

EPSOI (4 )=3.*S IGBAR! 4) /SOAR 

EEFF 1  =  EEFF  1 1 

SYI  =  SYI  I 

SMAXI=SYI 

S l  =  S  BAR 

RETURN 

C  CASES  5,6  CR  7,  PLASTIC  FLOW 

30  I F  IS  MAX  1 1  .LT.SYII  >  GO  7()  100 

C  CASES  5  OR  6 

IFISII  .GF.SYll  1  GO  TO  200 

C  CASE  =  6,  WAS  PLASTIC,  UNLOADED,  ELASTIC  AT  PREVIOUS  II  ME  STEP 

I C AS  E=6 

32  DUPMY=(SYll  -Sll  )/(  SBAR-S 1 1  I 
DC  31  J= 1 , 4 

SIGMA( J)=S IG1 1! I , J ) +DUMMY*! SIGBAR! J )- S I GI li I, J)  > 

31  EPST  l  JIsEPST  IK  I,  JI+OUMMY*!  E?  ST  I!  J  )-EP  ST  1 1 1  I ,  J  ) ) 

SIGBMABS  (SIGMA!  I  )-S  I GM  A!  2)  )  )**2*(  ABS!  S IGMA  ( l )  -  SI  GMA  (  3))  )**? 

1  ♦( ABS (SI GMA! 2  1-SIGMA!  3  1 1 1** 2*6.* ( AB S( SIGMA (41 11**2 

SI  GB=S  QRT  (  S  I  GB/ 2  •  1 

EPS0(1 )=(2.*S IGMA! 1)-  S  IGMA! 2  1-  SIGMA ( 311/(2. *SIGRJ 

EPS0(21  =  (  -S  IGMA!  1 1  -*■  2 •  *S  IGMA!  21-  S IGMA  (  3  1 1  /  ( 2.*  SI  GB  1 
EPSO! 3 1= (  -S IGMA! 1 1-  SIGMA! 2 1 *2.* SI GMA ( 3 1 1 / ( 2. *  SI GB 1 
EPSD(4 )=3«*S IGMA! 41/S IGB 
GC  TO  201 

C  CASE  =7,  WAS  PREVIOUSLY  FLASTIC,  N*** .  PLASTIC 

100  ICASE=7 
GC  TO  32 

C  CASE  =5,  WAS  PREVIOUSLY  PLASTIC,  NOW  FURTHER  FLOW 

200  ICASE*5 

DC  3  3  J= 1  *  4 
SIGMA! J)=S IG I 1<  I, J  1 
EPST ( J)  =  EPST  l  K I, J) 

33  EPSO! J1  =  EPS01  i(  J) 

SI GB=SYI  l 

C  COMPUTE  NEW  PLASTIC  STRAINS 

201  I F ( I  ST  RES • NE • 2 )  GO  TO  202 

C  PLANE  STRESS 

XNUSC(  I  ,1,3>/C(  I,  l,  I) 

E=C!I,L,l)*(  l.-XNU*XNU) 

A=  (7  •  -1 3.  *XNJ  +7  •  *XNU*XNU  1/4.  *0.7  5*!  2.- 5  .*  XNU*2  .*  XNO*  XNL)  * 

1  (  (S  IGMA(4)/S  IGH)*(  SIG”A(  4  l/S  I  GB  )-(  S I  GMA  (  1)  /  SI  GB  1  *  (  SI  GMA  (  J  1  / 

2  SIGB)) 

A*  A/  ( l  •  -X  NU  *X  NJ  )  *  *2 

B= ( (5 . -4. *XNJ 1/2. i*( ( SIGBAR! 1 >/S IGB )♦ ( S IGMA ( l ) /SIGB 1 ♦ 

1  (SIGBAR!  3)/SIGB)*(S  IGMA!  3  1/ S  I  GB  1 1- (  (  4  5.*  XNU)  /2.  1  * 

2  (!SIGBAR(l l/S IGB)*!  SIGMA!  3 ) /S IGB ) ♦( S IGBAR ( 3) /SI GB 1  * 

3  (SIGMA!  I  l/S  IGB)  I  *9  •  *(  l.-XNU)*!  S  IGBAR  !  4 )  /  S  IGB  )*  (  SI  3  MA  (4 )  /  SI  Gli  I 
B=  8/  ( l  •  -XNU*X  NJ  ) 

GC  TO  20  3 

C  PLANE  STRAIN  (JR  AX  ISYMMETR  IC 

202  X?SU=  (C(  l,l,2)/C(  1,1,  111/!  l.+C(  I,  1,2) /C(  1,1,11) 


.  A^-»^  ■  V1; » ' 


}  :->5  A- 88 

E=cu,i,n*(  i.+xnus*(  i.-2.*xnuj/( i.-xnuj 

A=  9  •  / ( 4  •  ♦  I l • ♦XNJ ) **2) 

B=  (3./  (  l.+XNJ  )  >*(  (S  !GBAR<  1  )/S  IGB  )*EP SD(  !)♦(  SIGBAR  (2)  /  SI  GB)  *F  PSD  (2  ) 

1  ♦  IS  IGBAR(  3  )/S  I  GO  )*EPSD(  3 1  S  1GBAR  ( 4 ) /SIGB )*EP  SD (4)  ) 

FIND  LOCAL  VALUE  OF  h 

203  IF(NOYlLO.GT.l)  GO  TO  204 
J=  1 

205  H=  HST AR(  J) 

GC  TO  207 

204  DO  205  "K=l,NOYiLD 
J=  K 

IF(K.EQ.NOYILD)  GO  TO  205 
I F  (S  Y 1 1  .LT.SSTARI  <  +  l))  GO  TO  205 

206  CONTINUE 

207  ALPHA=  A-(  H/E  )  **2 
BET  A=2  .  *H/  EVB 

GAMMAs (S BAR/ S IGB) **2-1.0 
IF (ALPHA. NE. 0.0)  GO  TO  208 
IF  (BET  A.GT  .0.0)  GO  TO  209 
IFRROR=  1 

212  WR  I T  E  ( 6 ,2 10  )  T , NOOFEL (  I).  I 

210  FORMAT  ( 1H1 ,50 HFRROR  ENCOUNTERED  IN  PLASTIC  FORCES,  MISES  ROLTINF// 
1 IT H  TIME  =  » IP E  15 • 5/ 10H  ELEMENT  =, I5/10H  NUMBER  s,I5) 

WR  iT  E  ( 6 ,500  )  (EPSTIK  I,  J  ) ,  J  *  l,  4  ) ,  (  EP  SP  I  1(  I  ,  J  ) ,  J  =  1  .4)  , 

1 (EPS 01 1 (  J) , Js l,  4 ) , EEFF  1 1  , ( EP ST  I ( J  ) , J  =  l ,4)  , 

2(FPST(J),J=1,4)  ,  (FPSU(  J  ),J  =  1,4) 

500  FORMAT  (10H  EPST  11  =,  1P4E 1  5 . 5/  10H  EP  SP  I  l  =,IP4E15.5/ 

110H  EPSCI1  =  ,  1P4E15.5/  10F  EEFF  1 1  =,  1PF15. 5/1  CH  EPSTI  =,1P4F1‘> 

2.5/10H  EPST  = ,  IP4E 15 « 5  /10H  IPSD  *, 

31P4E15.5) 

WRITE(6,501)(SIGII(  I,J),J  =  1,4),  SYI1  ,SMAXI1  ,SI1 
l (S IGBAR(J) »J= 1,4),SHAR, ( S  IGMA(J  ) , J=  l, 4 ) , SIGB 

501  FORMAT ( 10H  S IGI1  =,  1P4E15.5/ 10H  SY 1 1  =,1PE15.5/ 

1 10H  S  MAX  1 1  =,  1PE15.5/10H  SI1  =,1PE15.5/ 

210H  SIGBAR  = , 1P4 E15. 5/ 10F  SBAR  =,1PE15.5/ 

310H  SIGMA  = , 1P4C15.5/ 10F  SIGB  =,IPE15.5) 

WRIT  6  (6, 502)  E.XNU,  A,  B,  H,  AL  PHA,  BE  TA  ,  GAMMA  ,  I  ERR  OR 

502  FORMAT  (  10H  E  =,  IP E  1 5 . 5/ 10H  XNU  =,IPE15.5/ 

110H  A  =,  1PE15.5/10H  B  =,  1PE  15.  5/lCH  H  =  ,IPH6.5/ 

210H  ALPHA  = , 1PE15.5/10H  BETA  =,  IPE  15. 5/lCH  GAMMA  =,1 PEI  5.5/ 
310H  I  ERROR  = , 15 ) 

CALL  EXIT 

209  DELTA=GAMMA/ BETA 
GC  TO  211 

208  DUMMY* BET A*BET A-4 ,*ALPHA*GAMM A 

503  IF (DUMMY.GT .0 .0 )  GO  TO  213 
OELT  A=  BET  A/ ( 2  .*AL  PHA ) 

IF(DELT A.GT. 0.0)  GO  TO  211 
IERROR=  3 

GC  TO  212 

213  DU MMY=S CRT (DJMMY  ) 

Dtl7Al  =  THETA>'0UMMYI7(  2.*ALPHA) 

DELTA2=(  BETA-DUMMY  )/(  2.*ALPHA) 

IF((DELTA1.GT .0.0 ) .OR .(  DELTA2.GT .0.0) )  GO  TO  6C0 

IFRR0R=4 

GO  TO  212 

500  IF((DELTAl.GT  .0.0).ANC.(  DELTA2.GT.0.0)  )  GO  TO  601 
I F  (OELT  AT'iTJTTD  .0  )  DFLTA=DEL  TA  l 
IF (DELT A2.GT .0.0 )  DEL  T A=DEL  TA2 
GO  TO  211 
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601  IF(DELT  Al.GE.DELT  A2  )  CELTA=DELTA2 
IF (CELT Al.LT .DELT A2 )  CELTA=DELTA  1 
211  0FEFF=S  IGB*OELTA/ E 

1C=1 

DE=0.0 

S=SVU 

DEEFFL=0.0 

DEEFFH=0,0 

SIGIBM=S8AR-SY II 

DEEFFM=0.0 

1SW=1 

215  DC  216  J=l,4 
SIGI ( J)=0.0 
00  216  K= 1 *4 

216  SIGI  I  J  )=S  I’GI(  J  )  +CI  I»Jt<  )*(  CPST  II  K.  J-E* SP  IK  !  »K)-DtEFF$FPSD  (  K )  ) 
SIGI  B=  (  A8S  (S  IGII  l)-SIGI(  2)  I  )**2  ♦{  AB  S(  S  IG I C  2)- SIG I  ( 3 )  ) )  **2 

1  ♦  (  ABSIS  IGII  3  )-S  IGIC  1  )  )  >**2*6.*(  ABS(  SIGI  (4  )  )  )**2 

SIGIB=SCRT(SIGIB/2.) 

SCI=S+H*(DEEFF-Df) 

1FIISW  .EQ.  2)  GO  rn  217 
IF  IS  IGI  8 -SC  I  .GT.  SIG  IBM)  GO  TO  227 
SIGI BM=S IGIB-SOI 
DEEFFM=  DEEFF 
227  CO  NT  I  NJ  E 

226  IF(ABS(SOI-SIGIB).LE.0.01*SOI)  GO  TO  21? 

IF(DEEFFH.EQ.O.O)  GO  TO  218 
IFISQI.GT  ,  S  I  G  I  B )  GO  TO  219 
DFEFFL=  DEEFF 

220  OEEFF= (CEEFFL+DEEFFFJ/2. 

GC  TO  215 

219  DEEFFH=  CEEFF 
GC  TO  220 

218  IFISOI.GT.SIGIB)  GO  TO  219 
DEEFFL=  DEEFF 
UEEFF=2 • *DEFFF 
IC=IC+1 

IF  1 1  C. LE.20 )  GO  TO  215 
DEEFF=  DEEFFM 
IS  W=2 
GC  TO  215 

217  DC  221  J=  1  ?4 

221  SIGI(J)sSlGI(J)*SOI/SIGIB 
EEFFl=EEFFll+DEEFF 
IFCNOYILD.EO.il  GO  TO  222 

IF (EEFF1  l.GE. EST  AK( NOY IL  D) )  GO  TO  22? 

J=l 

224  IFIEEFFU.LT. ESTARI  J  )  )  GO  TO  223 
J=  J+l 
GO  TO  224 

223  IF (EEFFI.LE. ESTARI J  ))  GO  TO  222 
S*SSTARi J) 

H= HSTARI J) 
l)E*EST  AR(  J  1-EEFF  1 1 
DFEFFL=  DEEFF 
DFEFF=2.*DFFFF 

ic=i 

DEEFFH=0.0 
ISW=i 
GC  TQ  215 


r>  r>  r>  r>  o  o  o 
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222  DO  225  J=l,4 

225  EPSPI  (  J  »  =  £PS  P  1 1(  I,J  )+CfcEFF*EPSDl  J  ) 

EPSDI(l)=(2.*SIGl(  1)~  SIGH  2  )-  SIGI ( 3) )  /(2»*  SOI  ) 
EPSDI  ( 2  J  =  (  -SIGI(1)+2.*SIGI(  2)-  SIGI  (3) ) /(2.*  SOI) 

EPSOI  ( 3  )-  (  -SIGIin-  SIGH  2  ) +2.*  S IGI  (  3 )  J /(  2.*  SOI  ) 
FPSO! ( 4  )  =  3  .  *S IGI ( 4 J/SO  I 
SY  I  =  SOI 
SMAX  I  =  SCI 
5!  =SO! 

RETURN 

END 


SUBROJI  INE  COJLMR{  I ,  EPS  T  I ,  EP  SP  I ,  S  IG  1 , KORNER  ,F  YLD  I  ,EPSUI  ,MSfcTCH  , 
IBLAMBI 

COMMON  MAX  Nt>,  MX CLS  ♦  MX ADJ P , MXZ ON E , MXNPB , NZONF S , MXPE L3  ,NUMNP  , 

1  N  J  MEL,  ISTRES,NUMPEL,NUMELP, PERIOD, NMKCLS, FACTOR, CLAMB, 

2  KT  APE,  K RJN,  IPR INT , NUMST, MX STR T, FUZ ( 239 ) , 

3  IPELTP,  INr,NPRCDS,  IMPBX 
COMMON/ A/  U(  1603), W(  1600),NP3UT(  80 ) ,  NMPCL  S  (  8C )  ,FNU(35C)  ♦ 

1  FNW1350  ) 

COMMON/ H/NADJNP(  400  ),JTYPE(  400),  SHE  TA  (  4C0 ) ,  XMA  S S  ( 4C0)  , 

1  SNPUU(400 ) ,$NPUW< 400 )♦ SNPWWl 400 ) ♦ FAU ( 4C 0 ) ,F A W ( 400 ) , 

2  NPADJ(400,R),SAD'JJ(400,8),  SADUW(  400,  8 ) ,  SAD  W  tot  4C0»  8 ) 

DI  MENS  ICN  GJFF(  3280  ) 

EQUIVALENCE  ( BJFF, NAOJNP ) 

DI  MENS  ICN  NOOFEK  24),  IPLASTl  24),NP(  24,4  ),  I  TYPE  (24,4)  ,  JHE  TA  (24  ,4)  , 
IC(  24,4,4)  ,  B(  ?4,4,  8),P(  24,  8,  4)»  EPSTI  l(  24, 4),  EPSPI  1  (24,4)  , 
2SIGIl(24,4),DJM(24,  29),  IDUM(  24,  29) 

EQUIVALENCE  (  BJFF(  I  ),NOOFEL  ) ,  (BUFFI  2  5  ) ,  IPL  A  ST  )  ,  ( B  UFF  (  49)  ,NP)  ,  ' 

1  (BUFF(  145)  ,  I  TYPE  ) ,  (  BUFF(  241  ),  THETA),  (BUFF(  3  37)  ,C  )  ,  (3UFF  (  721  )  ,B)  , 

2  (BUFF  (  1489  ),  P),  (  BUFF(  2257  ),  EPST  ID,  (BUFF  (  2353)  ,EPSPI  1  )  , 

3  (BUFF  (  2449  ),S  IGI  1  ),  (  6U  FFi  2  54  5 ),  DUM  ) ,  (  B  UFF  (  2  54  5  ) ,  I DLM) 

DUM ( M , 3 )  =  COS  T  H 

DU  M ( M ,  4 )  =  KORNER 
OU  M  ( M ,  5  )  =  FY  L  D 1 1 
DU  Ml  M,  6  )  =  FPS  Dll 

DIMENSION  EPST  1(4),  EPSP  I  (  4  ),  S  I G  I  (  4  ),  EP  SD  I(  4  ) 

DI  MENS  ION  EPS  DIK  4),S  IGBAPl  4  ),  S  IGMA  (  4 ),  EP  ST  ( 4)  ,EP  SD  (  4 )  ,El)  (4 )  ,  S  x  (4  ) 
C 

C  SIMPLE  COJLQMH  MUHR  YIELO  CONDITION 
.Vi_PHA=DUM!  1,1  ) 

CAPPA=DUM(  1,2  ) 

CCSTH=DUM(  1,3  ) 

KORNER=IDUM(  1,4) 

FYLDIL-DJMUf  5) 

DO  l  J= 1 , 4 

1  EPSDI1  (  J)=DUM(  I,  J+5) 

C 

DO  2  J=  1,4 
SIGBARl J)=0.3 
DO  2  K= 1 , 4 

2  SIGBARl  J)  =  S!GBAR(  J)+C<  I,J,K  )*{  EPSTIU  l-EP  SP  II  (  I,K)) 

AI 1BAR=S IGBARl 1 ) +S  I GBARl  2)+SIGBAR(3) 

AI 2 BAR=  (  (S  IGBARl  1  )-S  I  GBAR(  2)  )*(  S  IGBAU  1  )-SIGBAR(2)  ) 

1  +  (S IGBARl 2  )-S IGBARl 3 ) )*( S  IGBA3 ( 2  )- S IGBAR ( 3  ) ) 

2  +  C S  TP B ARC 3 )-S I GBAR (  l  ))*( SIGBARl 3  )- S I GBAR ( 1 ) ) ) /6. 0 

3  *  S IGBAR( 4 )*S I GBARl 4) 

IF  (AI28AR.LE.3.C)  )  GO  TO  3 


***  'HJWl.ii  j/tii,.  auwwu  nnw 

I 


V28 
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FVLDBR=ALPFA*AI1BAR+SCRT( AI2BAR  ) 

GO  TO,  4 

3  FYLD6R= ALPHA*A11BAR  ' 

4  IFlMSWTtH.EQ.  i)  GO  TO  33 
IFICAPPA.EC.O.OIGO  TO  65 

BL AMB=  FYLOBR  /CAPPA  . 

RETURN  , 

65  BLAMB=UE*38 
RETURN 

33  IF (FYLO0R. GF. CAPPA)  GO  TO  6 
K0RNER=0 
DO  5  J=  1,4  , 

$IGI(J)=SIGBAR(J) 

EPSDl ( J i=0 .0 

5  EPS  PI  (  J)  =  EPS  P  IK  I  •  J  1 
FYLDI  =  FYLOeR 
RETURN 

6  IF (FYLDBR.GT .CAPPA)  GO  TO  10 
DO  7  J=  1,4 

:  SIGI  (J)  =  S’IGBARIJ  ) 

7  EPSPl  (JKEPSPIKl,  J  ) 

fyldkTylobr .  , 

IF (AI2BAR.LT .0.00  1)  GO  TO  8 
KCRNER=0  ! 

iDUMl'  =  SQRT  (  AI2  BAR  ) 

64  EPSDim  =  ALPHA+(2.*SIGI<  l)-  SIGK21-  SIGH  3)  )/(6.*DUMl) 
i  EPSDl  (2KALPHA-M  -S  IGK  IK2.0*S  IGK  ?)-  SIG  !<  3 ))  /  ( 6.  ♦DUMl I 
EPSDl  (3>  =  ALPHA+(  -SIGIll)-  S  IGK  2  )  +2. 0*  SIG  I  (  3 )  )  /  (  6.  *DUM1  > 

EP$0I(4)  =  SIGI;(4)/CUM1  i 

CALL  LGTH(  EPSDl) 

RETURN 

8  KCRNER=l 
DO'  9  J=  1 ,4 

9  EPSDl t  J  >  =  0.3 
RETURN 

10  IFIFYLDIi.LT .CAPPA)  GO  TO  12 
DO  It  J* 1,4 

SIGMAt  J I  =  S;  I G  l  l  (  I,  J) 

EPST  (  J  KEPST  IK  I,  J) 

11  EP«D(  JJsEPSDIK  J  ) 

r._  ro  16 

12  DU  MMY=  (CAPPA- FYLDlli)/(  FYL  CBR-FYLD  1 1  ) 

00  13  J= 1 »  4 

S I  GMA( J  )  =  S  1G  1 11 I, J ) ♦DUMMY*! S  IGBAKt  J  l-SIGI  III ,  J)1 

13  EPSTt  JI  =  EPST  IK  I,  J)+OUMMY*!EPSTII  Jl-tPSTli!  It  Jl) 

AI2=  (  (SIGMA(  l  )  -S  I  GH  At  2  )  )*(  S  IGMA(  D- SIGMA!  2)  ) 

1  '  MS  IGMA(  2  )-S  IGMA(  3)  )nSIGMA(  2)- SIGMA!  3)  ) 

2  ♦  !  S  I GMA!  3  )  -S  I  GM  A(  1)  >*(SIGMA(  3)- SIGMA!  1)  ))/6.0 

3  +S I GMA (4 ) *S I GMA( 4  I 
IF(AI2.LE.1.3E-5)  GO  TO  14 
DU  MMY = S  C  RT  (  A  I  2  ) 

K0RNER=O 

EPSDl  1 1=  ALPHA'+I  2  i.  *S 'IGMAI  D-  SIGMA(2)-  SIGMA13) ) / (6.*UUMMY) 
EPSD12 )~ ALPHA  +  l  -S  IGMA(  1 )  +  2.*S I GMA ( 2 )-  S I GMA ( 3 ) ) / ( 6. *DUMMY ) 
EPSD(  3  )  =  ALPHAM  -S  IGMA!  I  )-  S  IGMA  (  2  )  +  2.*  SIGMA  I  3  ))  /  ( 6.  *DUPPY) 
,EPSD(4)=SIGMA(41/ DUMMY 
CALL  LGTH(EPSD) 

GO  TO  1'6  j 

14  KCRNER= 1 

i  00  15  J=  l » 4 

I 


J 


15  EPSD t  J[=0.0  • 

16  IF (KORNER.EQ. 1)  GO  TO  28 

17  AX=C(I,l,l)*EPSDC  1)+C(  I,  1,2>*EPSD12>+C(  l,l,3)*EPSDm 
AY=  C {TrZTTT-srPSDflT+Cn,  2,  7  )*EP  SDl  21+ C  C  1 , 2  73>*FPSD  ( 3  ) 

AZ=C  ( 1 , 3, 1 )  *EPS  D(  1  >  +CC  I»  3,  2>*EPS0I2)+C<  1,3,  3)*EPSD<3) 

AW=CI  I,4,4)*EPSD(  A) 

81= AX+AY+AZ 

82= ( (S IGBARI  l )-S IGBARI 2)  )*I AX-AY  )+I S IGBAR I  2 )- S IGBAR I  3 > ) *  I A Y-A /) 

1  ♦ IS IGBARI 3 ) — S  IGBARI  1  ))*l AZ-AX  ) )/ 6.0+( SI GBAR I4)*AW) 

B3  =  I  ABS’I TOC-fiY  T7$*2+f  ABS I  AY-AZ  )  )**2+I  ABSIAZ-AX)  V**2 

B3  =  B3/6  .0  +  AW  *  AW 

Dl  =  B3-( ALPHA *Bi ) *( ALPHA*81 ) 

02=2 . *1  ALPHA* ALPHA* A I 1BAR*B 1- ALP FA*CAPP A** I  B  2  J 
D3=AI2BAR-CAPPA*CAPPA+2.*ALPHA*CAPPA*A I  IB A R -At PH A* ALPHA 
1  *AI  1 BAR*A 1 ’ "AR 

rFiDivwr.T.o  r  go  to  ib 

At AMB= -03/ C2 

IF(ALAMB.GT.O.O)  GO  TO  24 

IERR0R=1 

ALAM8l=0.0 

At AMB2=0 .0 

DU  WHY"  =1310  '  "  -  -  - 

GO  TO  23 

18  DUMMY= 02*02-4. *01*03 

IF (DUMMY.GE.O .0 )  GO  TO  19 

IF  (ABS(OJPPY/(  02*02  )).LT.  0.015)  GO  TD  19 

I E  RR0R=2 

At  AMB=0'.D 

At AMB1=0 .0 

ALAMB2=0«0 

GO  TO  23 

19  IF (DUMMY.GT .0 .0 )  GO  TO  20 
ALAMB=-02/  (2.  *01  ) 

IF ( ALAMB.GT .0 .0 )  GO  TO  24 

IE«R0R=3 

ALAMB1=0.0 

ALAM82=0 .0 

GC  TO  23 

20  AL AMB1 = ( -02 +S  ORT ( CJMMY ))/{  2.*Dl ) 

ALAMB2= I -D2-S QRT I  CJMMY  ))/(  2  .*0 1  > 

IF  ( (ALAMBi.GT  .0.0  ).0R.(  ALAMB2.GT  .0.0)  )  GO  TO  21 
I E  RR0R=4 
GO  TO  23 

21  IF ({ ALAPB1.GT .3.0 J.AND.I ALAMB2.GT.0.0))  GO  TO  22 
IF IALAMB1.UT .0.0  )  ALAMB=AL AMB  l 
IFIALAMB2.GT.0.0)  AL  AMB=AL  AMB  2 

GO  TO  24 

22  IF  I ALAMB1 .GE . ALAMB2 )  AL  AMB  =  AL  AMB  2 
IF  (ALAMBl.LT  .  ALAMB2  )  AL  AMB  =  AL  AMB  1 
GO  TO  24 

23  WR ITE (b  » 100 )  T , NOOFFL (  I ) , I 

100  FORMAT (IH1,45HERR0R  IN  PLASTIC  FORCES,  COULOMB-MOHR  ROLTINF// 

110H  TIME  =,  1PL15.5/10H  ELEMENT  =,!5/10H  NUMBER  =,15) 

WR  I T  E  ( 6 , 10 1 )  (  EPS  Till  I,  J  ),  J  =  l ,  4  ) ,  l  F.P  SP  I  U  I  ,  J  l  ,  J*l  ,4)  , 

1  (EPS  01 1 1  J)  ,J=  1,4  >,<  EPST  I(J),J  =  1,4)*(EPST(J),J  =  1,4), 
2(EPSD(J),J=1,4) 

101  FORMAT  UOH  EPST  I  l  =,  1P4F  1 5  •*>/ 10H  FPSPIl  =,1P4E15.5/ 

110H  EPS  Oil  =  ,  1P4F1S.5/10F  FPSTI  =,IP4E15.5/ 

21CH  CPST  =  ,  IP4E15.5/  10F  EPSO  =,IP4E15.5) 

WRITE  (6, 102)  ISIGIK  I,J  ) ,  J  =  1,  4  ) ,  (  S I GBAR  (J  )  ,  J  =  l  ,4 )  ,  (SIGMA  (J)  ,  J  =  i  ,4) 


102  FORMAT  (  10H  S  IGIl  =  ,  1P4E  15.5/ 10H  S  IGBAR  =  ,1P4E15.5/ 

110H  SIGMA  =  , 1P4E15.5) 

WRITE  (6 ,103)  ALPHA,  CAPPA,  COSTH,  KORNER  ,  F  YLO  I  1»F  YLL)8R  ,  A  I  IBAR, 

1  At  2  BAR 

103  FORMAT  (  10H  ALPHA  =  ,  IP E 1 5 . 5/ 10H  KAP^A  = ,  IPE  1 5.  5 /l  OH  COS(TH)  =  , 

HPE15.5/13H  KORNER  =  ,I5/10H  FYLDI1  =  ,  iPE  1  5.  5/1  OH  FYLDBR  =, 

2 1 P61 5 . 5/ 10 H  1  1  BAR  = ,  IP E  1 5 . 5/ 10H  I2BAR  =,1PE15.5) 

WRITE  (6, 104)  C(  I,  1,  1),C(  I,  1,  2  ),  C<  I,  ).,  3  >  ,C  (  I  ,4, 4 ) 

104  FORMAT  ( 10H  C(  1,  1 )  =,  IP  E  15 . 5/  10H  C<  1,  2  )  =,  IPE  15.  5/1  OH  C  1 1  ,3)  =  , 

11PE15.5/10H  Cl  4*  4  )  =» IPE 15.5) 

WRITE  (6, 10  5)  AX,  AY,  AZ,  AW,  B  l,  B  2,  B  3, 01,02,03 

105  FORMAT  l  10  H  AX  =,  IP  E  1 5 . 5/ 10H  AY  =  ,  IPE  1 5.  5 /l  OH  AZ  =, 


11PE15.5/10H 

AW 

=  ,  IPE15.5/10H  B l 

=  ,  IPE  1 5.  5/1  OH 

B2  =  , 

2 1 PEI  5 . 5/  10  H 

B3 

=, 1PF15.5/10H  01 

=, IPE 1 5. 5/1 CH 

02  =, 

31PE15.5/10H 

03 

=  ,  IPE  15.5) 

WRITE (6 ,106) 

ALAMB, 

AL  AMBl,  ALAMB2,  DUMMY,  IERROR 

FORMAT ( 10H  ALAMB 

=  ,  1PE15.5/  10H  ALAMB1 

=  ,  IPE  15.  5/1  OH 

ALAMB2  =, 

11PE15.5/10H 

OJMMY 

=, 1PE15.5/10H  IERROR 

=  ,I5) 

CALL  EXIT 

24  ALAMBL=0.0 
AL AMBH=0 .0 
lOl  ""  " 

25  DO  26  J= 1 , 4 
S I GI ( J )=0 .0 
OC  25  K=  1 ,4 

26  SIGH  J)=S  I  Gil  J  )+Ci  I,  J,<  )*(  EPSTIIK)-EPSP  III  I  »K )-ALAMB*FPSD { K)  ) 

AI  1  =  S  I G 1 1  1  )  *S  IGIl  2)+$  IGH  3) 

AI2  =  l  ("ABS15IGI I  1  )-S  IGIl  2)  )  )**?•*•(  ABSl  SIGI(2)-SIGI  (3))  )**2 
1  +  (  A  BS  ( S  I G I  (  3  )  -S  IGIl  1)  >)**2)/6.0+SIGU4)*SIGl  (4) 

FST  AR=  ALPHA* A  II +S  CRT  (  A  1 2  J-CAPPA 
IF(FSTAR.NE.O.O)  GO  TO  53 
IFIAI2.GT.0.J01)  GO  TO  51 

27  KCRNER= 1 

DO  50  J= 1 , 4 

50  EPS^Il  J  )  =  EPS  P  1 1  (  I,  J  )  +  ALAMB*EPSD(  J  ) 

""  Gfr^T  0  36 

51  KCRNER=0 
FYLOI=  CAPPA 

FPSDI  (  1)  =  ALPHA+(2.*SIGI(  1  )-  SIGH  2  )-  SIGI  (  3)  )  /  ( 6.  *SQRT  (AI2  )  ) 
EPSDI  ( 2  )  =  ALPHA* l  -SIGIl  1)+2.*SIGI(2)-  S I  GI  (  3 )  )  / 1 6.  *  SORT  ( AI  2  1  ) 
EPSDI  (  3  )  =  ALPHA  +  l  -SIGIl  II-  S  IGH  2  )*2.*  SIGt  (  3)  ) /<6.  *  SORT  ( AI2  )  ) 
EPSDI (4)  =  S IG I ( 4  J/SQRT ( A  I?) 

CALL  LGTH(EPSDI) 

00  5  2  J=  l  »  4 

52  EPSPK  J)=  EPS  PIK  I ,  J  )  +  AL  AM8*  E3  SOI J  ) 

RETURN 

53  ABAR2= ( ABSl CAPPA/ ALPHA-A 1 l ) )**2/3. 

8BAR2=2.*AI2 

RBAR2=  ABAR2+BP  <R2 
IFIRBAR2.LE. 0.001  )  GO  TO  27 
IFUCAPPA/  ALPHA-AID.  LE.  0.0)  GO  TO  27 
A I 2S  — ( CAPPA-AL PHA*A  II  )  **  2 
BBARST  =  SQRT(2.*AI2S  ) 

IF (BBAR2.GT.0.0 )  GO  TO  54 
ALAMBH= ALAMB 
GO  TO  57 

54  B8 AR=S  QRT ( BBAR2  I 

IFIABS  (BBARST  -BBAR)  .LE.0.0  l*8BAR  ST )  GO  TO  61 

C*=  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  ======  =  =  =  =  =  =  =  =  ===♦******************************* 

PRINT  999, I, NCUFFLl  I),  I C, AL  AM  B, BBAR , BBAR  ST 


:■  .r*  »v*  ^  J7  W!  ;  ■  wy.tstovw- 


A-91* 

)  31 

999  FORMAT (3110, 3F15. 5)  J  1 

C=======================================*  *♦$**#  •**♦#***$$**$$#$**<**♦$$><'** 

IC=IC+1 

IFUC.rE.20)  GO  TO  55 
I  ERROR=8 
ALAMB1=  BBARS  T 
ALAMB2=  BBAR 
OU  MMY-  A 12 
GO  TO  23 

55  IF  ( ALA'MBH.Gr.0.0  )  GO  TO  5fl 
IF (BBAR. LT .BBARS T  )  GO  TO  56 
ALAMBL= ALAMR 

ALAMB=2 .  *A1.AM8 
GO  TO  25 

56  ALAMBH=  AL AMR 

57  ICODNT=r  • 

GO  10  60 

58  IFC8BAR.GT  .BBARS  I  )  C-0  TO  59 
ALAMBH=  ALAM8 

GO  TO  60 

59  AL AMBL=  ALAMB 

60  AL  AMB=  TALAMBH  +  AL  AMBL  )  /  2  . 

GO  TO  25 

61  S=AIl/3. 

00  62  J=1 »  3 

62  SX(J)=SIGI(J)-S 
SX (4 )=$ IGI (4 ) 

dummy=bbarst/rbar 

DO  63  J=1 »  3 

SX ( J)  =  DUMMY*SX< J ) 

63  SIGI ( J)=S+SX ( J) 

SIGI(4)  =  DJMMY*SX(4) 

GO  TO  51 

28  XNU=C(  1,1,2)/  (C(  I»  It  1  )+C(  It  It  2)  ) 

EB AR=  C ( If  1,1 )/( l.-XNJ  ) 

EMOD=EBAR*(  1  •  4-XNJ  )*<  i.-2.*XNU) 

DO  29  J=t,3 

2  9  EPSD( J)=EPST I (J)-(CAPPA*(  1.-2  »*XNU ) / ( 3. * ALP  HA* E MUD ) ) -EP  SP I  1  (I  ,J) 
EPSD  ( 4  )  =  EPST  1(4)- EPSP  1 1 (  It  4) 

CALL  LGTH(EPSO) 

ALGTH=  (  AB5  ( EPS  D(  1  )))**2+(  ABS(  EPSD(  2  )  )  )**2+(  AB  J  (EP  SD  (  3)  )  )  4+2 
ALGTH=S  CRT ( AL  GT  H) 

DELT  AD=  EPS  C(  1  )  +EPS  D(  2  )  +EPSD(  3) 

CCSTH8=  CELT  AO/ ( S  QRT (  3 . ) * AL  GTH ) 

IF(ALGTH.EC.O.O)  COSThB=i.O 
IF  (COSTHB.GE.'COST  H)  GO  TO  42 
C 

A6AR2=  (  ABS  (  C  APPA/  ALPHA- A  1 1BAR  )  1**2/ 3. 

BBAR2-2.*AI20AR 
RBAR2* AHAR2+BBAR2 
IF (RBAR2.LT. L .OF-5)  GO  TO  42 
IFUCAPPA/ALPHA-AI1BAR)  .LE.O.O)  GO  TD  4  2 
S= All  BAR/ 3. 

A!2S=  (CAPPA-ALPHA*A  II BAR  )**."! 

BBARS T  =  S  QRT ( 2 .*A I2S ) 

BBAR=SQRT ( BBAR2 ) 

DO  30  J= 1 1  3 

30  SX(J)*(BBARST/BBi.R)*(S7  GBAR(  J  )-S) 

SX  (4  )=(  BBARS  T /BBAR)  *S  fGBAR( 4) 

00  31  J= 1 1  3 


non  n  o  o 


31  SIGI  ( J)=SX(J)+S 
SIGI  (4  )  =  SX  (4  ) 

ED  { 1  )  =  (SIGH  1  )-KNU*(S  IGK  2  )+S  IG  I  (  3)  )  J/EMOD 
E D  ( 2  )  =  rSl'GK  2)-XNU*(S  IGK  1  )+S  IG  II  3)  ) >/EMUD 
60(3)=  (SIGH  3  )-<NU*(S  IGK  1I+SIGK  2)  )  J/EMOD 
ED(4)  =  2.*(  l.+XNJ  )*S  IGK  4)/FM3D 
00  32  J=  1 » 4 

32  EP5PI  (  J)  =  EPSr  I(  J  )-EC(  J  ) 

KCRNER=0 

FYLOf=CAPPA 

DUMI  =  SQRT(  A12S  ) 

GC  TO  64 
42  DC  43  J=  l ,  3 

Vi  EPSPK  J)  =  £PSf  IIJH  CAPPA*(  l.-2.*XNU)/(  3  .*ALPHA*E  MOD )  ) 
EPSPI  (4)  =  EPSr  1(4) 

36  S=CAPPA/(3.*Ai.PHA) 

DC  37  J=  l »  3 

37  SIGI ( J )  =  S 
SIGI (4 )=0.0 
KCRNER=l 

FY  LDI =  C APPA 
DO  38  i=  l , 4 

38  EPSDI ( J ) =0 .0 
RETURN 

END 


SUBROJT  INE  LGTHI  E) 

DIMENSION  E(4),A<4) 

DO  1  1=1,4 

1  a;:)  =  abs(eu  ) ) 

8=  AMAX I  (  A(  I),  A(2),A<  3),A(4)  ) 
DO  2  1=1,4 

2  E  (  I )  =  E  (  I)/  B 
RETURN 

END 


SUBROUTINE  NCOJL  l  NJME,  EPST  I,  EP  ST  1 1,  EP  SP  I  ,EP  SP  I  I  ,  SIGI  ,SIGI1  , 
ICOHESN,  FRCTNI  »SNSWCH,  FRCTN2,  CRES  ID, 

2FRES I D, MY  I  EL  D, IRES  I D, J T ENSN, CMAT ,  IST3ES, 

3  MSWTCH»S  BAR,  BLAMB,  COSTH,  S  INTH*  F,  G, 

4SIGNI i,NSWTCH,SIGNBI) 

DIMENSION  CM  AT  (4,  4),  EPST  1(4),  EPST  lit  4),  EPSPI  (4),  EPSPI  1(4)  , 

I  SIGI (4),SIGI1(4) 

DIMENSION  F(4»4)»  G(4*4)»S1GNI(  4), SIGN!  1(4),  SIGNS  I  (4)  ,FPTN!  (4) 
l  EPTNI114) 

C  MS WT CH=0  COMPUTE  BLAMB  ONLY 

C  NS  WT  CH=  I  COMPJTE  F,  G,  AND  SIGN  I  l  ONLY 

DC  l  1=1,4 
DC  l  J=l,4 
F  I, 2) =0.0 
l  Gt 1 , J)=0.0 

F ( 1  *  L )  =  CQSTH* CUS  T  H 
F(3,l)  =  SINTH*S  INTH 
F  ( 4 »  i  )  =  $  I  NT  H  *  COS  T  H 
F(2,2)=l.O 
Ftl,3)=F(3,l  ) 


•  *  33 

F(3»3)=F( 1,1) 

F(4,3)=-F<4, 1  I 
FIl»4)=-2.*F(4» 1) 

FC3»4l*-ni.4) 

F  ( 4 , 4  J  =  F  C  1,1  )-F(  3,  1  ) 

00  2  1=1,4 
DO  2  J= 1 ,4 

2  G( I , J)  =  F(  I ,  J  ) 

G(4» 1 )*-G(4, 1 ) 

G  T4 » 3  V*  -GI 4 »  3  )’ 

G(  1,4)=  Gl 1,4  ) 

G( 3 ,4 i  =  -G( 3, 4  ) 

DC  3  1=1,4 
SIGNIlt  I)*0.3 
DC  3  J=IV4  - 

3  SIGNIlt I)=S I GNI 1(  I  )+F( I, J )*S  IGI  l(  J  ) 

IF (NSWTCH.EG. 1)  RETURN  1 

DC  4  1=1,4 

EPTNI 1 ( l)  =  0 . 3 

EPTNI  (I)=0.0 

DO  4  J=I  j"4 

EPTNI  1  (  I)  =  EPTNI  i(  D+GIJ,  I)*EP  ST  III, n 

4  EPTNI  in  =  EPTNI  (  I )  +GI  J  ,  I  )*EPST  I  (J) 

DO  5  T=1.4 

SIGNBI  m  =  SIGNIl{  I) 

DC  5  J=  1 , 4 

5  SI  GNBT  CT1=STGNBTT  I )  ♦CMAT  r.  I,  J  EPTN  1 1 J  J-EP  TNI  l  ( J )  ) 
SBAR=SIGNBI(4) 

TNPHI1=TAN(FR.  TNI) 

TNPHI2=TAN(FRCTN2) 

TAUNT=ABS  (SIGNBI!  41  > 

S  NI  =  S  I  GNRI(  3  ) 

IF  (MSWTC*.  EO.  1)  GO  TO  10 
I F  (S  NI  •  r  i  «'  »0  • AND •JTENSN.EQ.O)  GO  TO  6 
AUMER=T  /NT  +  S  NI  *T  NPIj'1 1 
DENOM=  COHESN 

IF (DENQM.GT .0 .0 )  GO  TO  7 
IF(AUHFR.GT.D,0)  GO  TO  6 
IF  (FRCTM.GT  .  FRC1  N2  )  GO  TO  50 
BL AMB=3  .3  , 

0  3  TL  ? 

4  BL AMB= l .3  E+38 
GO  TO  9 

7  IF  l  AUMTTR.  GTi'3  .0 )  GO  TO  8 
AU  ME  R=  T  A  J  NT  -*-S  N I  *1  NP  H 1 2 
IF ( AUMER.GT.O .0 >  GO  TO  8 
BLAMB=0.3 

GC  TO  9 

8  BLAMB=  AUMER/  DENOM 

IF  (FRCTNl  »E(,  .FRCTN2)  RETURN 
SI GFF=  S  NI/ BL  AMB 
IF  (S  IGFFeGE.SNS^CH)  RETURN 
50  AUMER=T  AJNT +S N I *T NPP 1 2 

DE  NOM=  CCHESN-SNS  W  CH*',  TNPHI 1-TNP  H  1 2) 

BLAMB*  AUMGR/’  OENOM  ~  , 

IFIAURER.LE.3.0)  3LAMP=0.0 

9  RETURN 


IF  { JTENSN.EQ^U  GO  to  100 
IF  (SNI  iGE.0.3  )  GO  TO  ISO 
GO  TO  105  ,_4-_ 

lF(TNWtr.TT.(T.0r  GO  TO  105 

IF  (SNI.LT.COHESWTNPHID  1  GO  TO  105 
IF (IRES ID.EQ.O )  GO  TO  160 
COHESN=CRE$!D 

FRCT  Nl  =  FRES  I  D  , 

FRCT N2= FRES 10 

1  F  (MYI  F.tO.EQ.  l.ANC.  IRES  ID.Eq  .  1)  GO.  T3  110 
IF  (SNl.LT.SNSdCH)  GO  TO  120 
TAUNT  B=C0HESN-SNI*TNPHI1 

TAUNT  B=  COHES  N-SNS WCF»TNPH l  i-<  SN:I-SN  SWCH  )*  TNPH!  2 
TF  (T  AU’NT^TrnT  AONT  B)  ”G0‘  TO  170 
lF(MYlELD.EQ.l)  GO  TO  140 
IF(IRESID.EQ.O)  GO  TO  140 
COHESN=CRESID 
1  FRCT  Nl  =  FRES I  0 
FRCT  N2=  FP.ES  ID  1 

I F  ( F RESTD*. GT  . 0 VT  “GO  TO  132 
IFISNI.GE.O.O I  GO  TO  150 

^FISNUtT.COHESN/TANl  FRESIDU  GO  TO  135 

TAUNT  B=COHESN  -  SNI*T  AN(  FRESIO) 

SIGNH41  =  1!GNBII4)*T  AUNTB/TAUNT 
SIGN  I  ( 3  )  =  S  IGNBII  3) 

SIGNim-SlGNBlUl 
SIGN  I  (  1  )  =  S  IGNBK  11 
RYiELO=l 
GC  TO  15  ■  , 

S! GNl (4  |  =  0  *0 
SIGNK31-0.0  i 

SIGNI  (21  —  S  IGNBiC  2  ) 

SIGNI  ( Is) — S  IGNBK  1 1  •  i 
?WlELO=l 
GO  TO  15 
l  SIGNfUT=0.0 

SIGNI I3l  =  CCHESN/T  AN( FRCTN 1 ) 

SI GNI ( 2 )=S IGNB1I  2 ) 

SIGNI  imsiGNBim 
MYIELOpI  ’ 

GC  TO  15 

)  DC  180  Is  1  ?4  "  1 

3  SIGNI  1 1  nS  IGNBII  I ) 


00  16  1=  l » 4 
SIGUI>=0,0. 

SIGH  I  )=S  IGH  D+GI  I»  J  !*S  IGN  K  J  ) 

lFUSTRES.EQ.2i  GOTO  17 

XNU=  CMAT  ( l  ♦  3  i  /  (  CHAT  !  l»  1 1  ♦CMATI  1.3)1 

EBAR»CMAUl»  l»/( 

£MQD=  EBAR*U  .  +XNJ  1  .-2.*XNU  ) 

GC  TO  1*8' 

X  NU=  C  M  AT  1 1 1 3  >  /  CM  AT  1  1 »  1) 

EMOD=CMAT(  1.  1)*(  l.-XNU*XNU) 


non 


•?,***# -p  » *■  »*  ■**• - — "-" ,  - — -..m«.»  ^  i»  - t 


I  '-t'  A-98 

18  EPSPI  (  1  )  =  !  S IGI  l  1  )  -XNU  *!  S  IGI!  2  )+S IGI (  3)  )  >/EMOD 
EPS  PI  (2)={S1GI(2>-XNJ*(SIGI(  3  >  ♦SIGH  1))  )/EMUD 
EPSPl(3)=(S!GI(3)-XNJ*(SIGI(l)*SIG!(2))  J/EMOD 
EPS  PI  (4  r=S  in  It  4)/ CHAT  (^,  4) 

DG  19  1=1,4 

19  EPSPI  (  n  =  EPSr  III  J-EPSPI!  I  ) 

c 

RETURN 

END 


OVERLAY! MOHAN, 14,0  ) 

PROGRAM  LNK3 
C 

COMMON "MAX NPJ MX CLS, MX ADJP , MXZONE , MXNPB , NZONE S, MXPELB ,NUMNP, 

1  NUMEL,  1ST  RES, NUMPEL ,  NUMELP ,P El  !OD»NMKCL  S»FACT(JR  ,ALAMB  , 

2  KT  APE, KRUN,  IPR INT, NUMST, MX ST3 T,FUZ t 2 39) , 

3  IP  EL  TP,  INT»NPRCDS»  IMPRX 
C 

COMMON/ A/  U(  1600 ),W<  1600  ),NP0UT!  80),VMPCLSC  80)  ,FNU!3  50)  , 

1  FNWT150)  -  -  - 

C 

01  MENS  I CN  ST NPJ (  4,  350 ), STNPW!  4,  350) , STADU! 4, 35C,8)  , 

1  ST ADK  ( 4 »T50 , 8  ) , N ADJ NPT  350 ),NA0JEL( 350) ,NPADJ( 350, 8) 

C 

Dl  MENS  IQN  ITYPE!  350),SHETA(  350),XMASSC  350) ,  aNPLU!  350)  ,SNPUW(350)  , 
lSNPWWr35Tl,FAUrJ5in,FAWT350),  SADUUI  350,  E) ,  SADUW!  350, 8)  , 

2SADWW! 353,8) 

C 

DIMENSION  NPTN!  1600),  COM!  16),SIG!  350,4  )  ,EP  ST! 24,4)  ,EFFEC  T!24)  , 

1SI  GPL! 350,4) ,SIGMX( 350), SIGMN!  350), THETA! 350) , NOOFEL ( 24)  , 
2NP(24,4)»EPSP(24,4)»C(  24,  4,  4  ) ,  S  I GMAP  (  4  )  ,EP  SE  (  4  )  ,  SI  GMA  !4) 

C  - 

EQUIVALENCE  !SIGMX, FNU ), ( S IGMN, FNW) , (MAXNP ,COM ( 1 )  ) 

C 

EQUIVALENCE  (STNPU!  1),  ITYPE ),  ( STNPU! 351 ), SHETA ) , ( STNPU! 701 )  ,XMASS) 
i,  (  STNPU  f  1021  ),SNPUJ),(  STNPW!  I  ) ,  SNPUW  ) ,  !  STNP  H(  3  51 )  ,SNPm>  , 

2  !  STNPW!  70 1),FAU),  (STNPW!  10  5  l ) ,  FAW  ),  (  STADU!  1 ) ,  SAOUU)  , 

3  (STADUT7801 )  V5”ADJW  ),  (  ST  ADU!  5601),  SADWW) 

EQUIVALENCE!  FUZ!  1),NU0FEL  ),  (  FUZ!  25),  NIP  ) , !  FUZ!  121)  ,EPSp) 

C 

M0HAN=5HM0HAN 
PI*3. 1415927 
I S  WT  CH=0 

IF!  fTIJMTTP.TETMYNFB r; AND .'( NUMP EL  .EQ.O))  ISWTCH=1 
REWIND  10 
REWINO  INT 
REWIND  1 

C*******t*********** ******************************* ********************* 

IF { I MPBX.NE. 1 )  GO  TO  l 
REWINDT5  ’ 

RE  AO!  1 5  )  DUMMY  ,  DUMMY  ,  (  CJMMY  1,DUMMY2,  1=  l,NUMNP)  ,(DUMMYl  , DUMMY?  , 

1  DUMMY 3  ,  DUMMY 4 , 0JMMY5,  1=  1, NUMEL  ) 

C ************************************************************* ********** 
1  RE  AD!  10  )  Nl ,  N2»  N 3,  N4,  N5» N6»  N  7?  {  N  ADJ  NIP  (  l )  ,  I  TYPE  ( I  )  ,  SHF  TA  ( I  )  , 

1XMASS ( I ),SNPJJ( I ) » SNPUW (  I  ) , SNPWW!  I ) , FAU ( I  ) , FA W ( I ) , 

2  (NPAOJTT ,  J)  »S  ADJ  JT  I,  J  ),SACUW(  I,J  ) ,  SADWW  ( I  ♦  J  ) ,  J  =1 ,  MXAD  JP)  ,1=1  ,N7) 

IF  (N4.LT.NUMNP)  GO  TO  l 

READ! 10 )  (NPTN! I ),  I  =  l,NUMNP  ) 


- 


A-99 

c  r36 

I  C=  1 

2  READUO)  NPLOW,NPHIGH,NPOUT(  !C  )  ,  NUMC»  ♦  N  5»NMPC  L  S(  I  C  )  ,  N  7  ,  (  NAD  JNP  (I  )  , 
1  NAO JEL(  I )  ♦  (  NPADJ  !  It  J  ),  J  =  l,MXADJP  ),  (  STNPU(K,l )  ,STNPW(K,I  >  , 

2K=l,4)  t  ((STADJU,  I,  J  ) ,  STACW(  «  ,  It  J  ),  K  =  I ,  A  ) ,  J  =  l ,  MXAD  JP  )  1 1  =1  t  N7) 

IF  HSWTCH.EQ,  1)  GO  TO  30 

WRITE! 1  )  NPLOW.NPHIGHtMPUUT!  IC  )  t NUMCP t N 5,NMPCL SI  I C »  t N 7 1 ( NAO JNP (I)  t 

1  NAOJEL!  I )  »(  NPADJ  I  It  J  it  J  =  l»  MXADJP  it  (  STNPU!K,1 )  tSTNPW(K,I  )  , 

2  K=  l ,  4  )  t  (!STAOJ(Kf  I,  J  )  f  ST  ADW  (  < ,  1 1 J  it  K  =  1 , 4 ) ,  J  =  1 ,  MXAD  JP  )  ,I=l,N7) 

1C=1C+1  '  ' 

IFINUMCP.LT. NJMNP)  GO  TO  2 
30  REWIND  ID 
REWIND  I 

READ!!  NT  X  COM!  I  J,  1=1,  16  i 
C 

IFUPEUP.EQ.12)  IOUT  AP=3 
IF  1 1  PELTP.  EQ.  3  )  I0UTAP=12 
WR IT  E ( 6  » 3  i  I  OUT  AP 

3  FORMAT  1 1HI,26H0JTPUT  HISTORY  TAPE  IS  NO., 15//) 

C 

REWIND  IOUTAP 

WRITE!  rCi/TAP)  (COM!  I  ),  1=1,  l6)tNPRCDS,!NPTN(  I  ), 1*1, NUMNP) 

C 

NPRCDS  =  NPRCDS  +1 
DC  100  I  PR CDS  =  1,NPRCCS 
C 

DC  200  1=1, NUMNP 
RE  AO ( I  NTT  0  BAR , W  B  AR  ' 

IF ( I PRCDS.GT •  1 )  GO  TO  201 
"U  (  I )  =  J  BAR 
W( I)=WBAR 
GC  TO  200 

201  U(I)=U(I)+UBAR 
W( I)=W( IJ+WBAR 
200  CONTINUE 
C 

DO  101  I CLUS  = 1 , NMKCLS 
C 

DO  4  1=1,  MXNPB 
DO  4  J=l,4 

4  SI  GPL ( I »  J )=0 .0 
C 

IF  ( I  PRCCS  .  GT  .  1 )  GO  TO  104 
WR IT  E ( 6 , 25 ) 

25  FORMAT  1 1H1 , 1 6 HEL AST IC  SOLUTION//) 

IF  ( NUMPEC  .EO.O)  GOTO  TO  2 
GO  TO  106 
C 

104  NUM=  I  PRCDS  -l 
WR ITE ( 6 ,5  )  NJM 

5  FORMAT ( 1H1,22HPLAST  IC  INCREMENT  N0.  =  ,I5//i 
C 

106  CONTINUE 

NU  M=  NMPCLS  (  l  CLUS  ) 

IF  !NUM.  EO.O  )  GO  TO  102 
DO  6  I  1  =  1, NUM 
C 

REAOirNTiNUMELB,  fNOOFEL!  Ii,  EFFECT!  I),  ( NPU  ,  J )  ,EP  STU  ,Ji,EPSP(I  ,J)  , 
l  (C(I,J,K),K=  1,4),  J=l,  4),  I=1,NUMELB) 

C 
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DO  7  I  =  1 »  NL'MEL  B 
OC  32  J=l,4 

32  EPSE(  J)=EPST  (  f,  J  )-EPSP(  I,  J  ) 

D033J*  r,4 

S I GMA( J )=0 .3 
D033  K*  1  ,4 

33  S I GMA( J)=S IGM A( J ) +C( I , J , K  )*EP SEC K  ) 

OC  8  J=l,4 
SIGMAPTJT=O.U 
DC  8  K=l,4 

8  SI GMAPI J)  =  S I GMAP( J  )  *C(  I.  J , < )* EP SP( I , <  ) 

DC  9  J=  1,4 

NODE=NP( I, J) 

IF(NODE.EQ.O  )  GO  TO  9 
NPR*  NOUE-WO  JT(TCLOST 
DC  10  K= 1 , 4 

10  S!GPL(NPR,K)=SIGPL(NPR,K  MSIGMAP(K) 

9  CONTINUE 
7  CONTINUE 
6  CONTINUE 

WRITET673V) . 

36  FORMAT ( 1HO,15HNODE  POINT  CATA// ) 

102  IFUSWTCH.EQ.  1)  GO  TO  103 

READ ( 1 )  NPLOrf  ,NPHIGF,N3,NUMCP,N5,N6,\IUMNPB,  (NADJNPd  )  , 

1NADJELI  I),  (NPAOJI  I.  J  ) ,  J*  l.MXAOJP  ),(  STNPUl  K ,  I )  ,  STNPfc  (  K  ,  I  )  , 

2  K=  1 » 4  )  ,  (  ( ST  AOU  (  K,  I,  J  )  ,  ST  ACW<  K,  I,  J  ),K  =  l»4)»J=l,MXADJP)  ,1=1  ,NLMNPB) 

NLQW*  NPLOR-NPOUT  (  ICI.US) 

NHGH=NPH!GH~NPOJT<  ICLUS  ) 

DO  11  I  =  NLGW »  NHGH 
DUM=NADJEL(  I  ) 

DO  11  J= 1 » 4 

11  SIGPm  ,~J7=SIGPL{  I,J)/OUM 

103  CONTINUE 
NLOW=NPLOW-NPOJT  (  ICLUS) 

NHGH=NPHIGH-NPOJT (  ICLUS  ) 

DO  12  1  =  NLOrf , NHGH 
Nc=i+NPOurncLJs ) 

NUM*  NADJNPI  I  ) 

DO  13  J=  1 » 4 

SIGU,  J)  =  STNPJ(  J,  I)*U(N0)4STNPW(J,  I  )*W(NO) 

DC  14  K=  1 »  NJ  M 
NODE=  NPADJ ( I , K ) 

14  SIGIT,  JRS1GII,  J)4STADJ{  J,  I,<  )*U(NODE ) ♦  STADHl  J  ,  I  » K)  *  W  (NODE ) 
SIG(I,J)  =  SIG(  I,  J  )-S  IGPLI  IfJ  ) 

13  CONTINUE 

DUM1*  TS  IGl  I,  1 J-S  IG(  l,  3)  >/2. 

0UM2  =  0UM1*DJM1+S  I  G(  I,  4  )  *S  1GI  1,4) 

IF  (DU  M2.  GT  •  0.0)  GO  TO  15 
RATJIUS'^VO  " 

GO  TO  16 

15  RADIUS*SQRT (  DJM2  ) 

16  DUM3=(S  IG(  I,  l  )*S  IG(  I,  3)  )/2. 

SIGMXU  )  =  DUM3  4RAD  IUS 

SI  GMN(  I  )  =  DUM3~RAD  IUS 
IF(DUMl.GE.O.O)  GO  TO  17 
THE*  AT  AMS  IG(  1,4  )/(  -0UM1  )  ) 

THE*  (Pl-THEI/2. 
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GC  TO  20 

17  IFIDUMl.GT  .3.0  1  GO  TO  19 
IF(SIG( 1,4).6Q.O.O)  GO  TO  18 
THE=PlA'. 

GO  TO  20 

18  THE*0.0 
GC  TO  20 

19  THE*0.5*ATAN(SIG(  1,  41/0UM1  ) 

20  TH6T A( I )  =  T  HE* 183 ,/P I 

t2  ccntiwf 

WR1TE(6,21 ) 

21  FCRMAT  (  13H  NEW  NODE,  10X,fcFU  (  IN  1, 12X, 12HSIGMAR  (PS!),8X, 
112HSIGMA2  (PS  I),8X,  12FS  IGMX  (  P  S  I),  9X,  1 1HTHETA  (DEG)/ 

213H  OLO  NODE,  10X,6H<  (  IN  ),  12X,  12HS IGMA T  (  P  SI  )  ,  8X  ,  12H  TAU  (PSD, 
38X.12HSIGMN  (PSI)//) 

00"  22~T=N1L0W ,  NKGH 
NPNEW=  I ♦NPC'JT  (  1CLUS  ) 

NPOLD=  NPT  Nl  NPNEW  1 

t********************************************************* ************** 

IF(IMPBX.EC*1 1WR  ITE( 15 1NP0L D, U( NPNEW 1 , W (NPNEW) 

C***************** ********************************************  ********** 

22  WRITE  ry*75)  NPNEwTU(NPNEW),SIG(  1,  l)  ,  SIG(  1 , 31 ,  SIGMXd  )  ,  THE  T  A  ( II  , 

1  NPOLO,W(  NPNEW  ),  SIGC  I,  2)  »  S IG  ( I  ,  A  1 ,  S  IGMN  ( I  ) 

2  3  FORMAT  (  I7,3X,  1P5E20.5/I7,  3X,  1P4E20.5//1 
NMRCDS=  NHGH-NLQW ♦ l 
101  CONTINUE 
REWIND  1 
100  'CONTINUE”' 

REWIND  IOJTAP 
REWIND  INT 
REWIND  1 
RETURN 
ENO 
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APPENDIX  B  -  INTERPOLATION  CODE  FOR  DETERMINING 
MPBX  DISPLACEMENTS 


B.l  -  Code  Description 

This  code  determines  the  displacement  of  desired  points  along 
multiple  position  borehole  extensoaeters  (MPBX)  by  interpolating 
between  node  point  displacements  determined  in  the  static  SLAM 
finite  element  code.  The  code  is  written  entirely  in  FORTRAN  IV 
and  consists  of  a  main  program,  and  five  subroutines. 

The  code  accepts  either  punched  card  input,  which  is  read  via 
tape  5,  or  input  stored  on  magnetic  tape,  read  as  tape  1,  output 
of  the  static  SLAM  code.  Output  is  printed  via  tape  6.  The  code  is 
presently  operational  on  the  CDC  6500,  using  the  Purdue  MACE 
operating  system. 

B.2  -  Data  Deck  Setup 

The  following  description  of  the  data  deck  setup  assumes  that, 
in  general,  all  numbers  are  right-oriented  in  their  fields.  Inclusion 
of  the  decimal  point  in  floating  point  (real)  numbers  overrides  the 
right-orientation  requirement.  Integer  data  are  entered  in  5-column 
fields  while  all  floating  point  data  are  entered  in  10-column  fields. 
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CARD  VARIABLE 

1.1  ARAME 

ANAME  =  Problem  descriptor  to  be  printed  as  output, 
up  to  72  characters. 

2.1  ITAPE 

ITAPE  *  Counter  to  indicate  whether  node  point  and 
element  input  is  to  be  on  punched  cards  or 
magnetic  tape. 

=0,  Node  point  and  element  input  data  are  on 
punched  cards. 

=1,  Node  point  and  element  input  data  are  on 
magnetic  tape. 

3.1  NUMNP,  NUMEL 

NUMNP  *  Number  of  node  points  (<_  1600) 

NUMEL  *  Number  of  elements 
Note:  Card  3.1  omitted  if  ITAPE  *  1. 

4.1  NPNUM,  R,  Z,  U,  V 

NPNUM  =  Node  point  number 

R  *  Radial  (horizontal)  coordinate  (ft)  of  node  point 

Z  =  Vertical  coordinate  (ft)  of  node  point 

U  a  Horizontal  displacement  (inches)  of  node  point 
(positive  to  right) 

V  =  Vertical  displacement  (inches)  of  node  point 
(positive  down). 

Note:  Card  4.1  Repeated  NUMNP  times  if  ITAPE  =  0;  card  is 
omitted  if  ITAPE  =  1 

5.1  NUME,  NPI,  NPJ,  NPK,  NPL 

NUME  «  Element  Number 

NPI  to  NPL  =  Node  numbers  at  vertices  of  rectangular 
element.  NPI  may  be  any  node,  but  NPJ, 

NPK,  NPL  «U3t  be  given  in  clockwise  order 
around  element  starting  from  NPI.  If  NPL  a  o, 
element  is  considered  to  be  a  triangle. 

Note:  Card  5.1  repeated  NUMEL  times  if  ITAPE  =  0;  card  is 
omitted  if  ITAPE  =  1. 
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CARD  VARIABLE 

6.1  NBX 

NBX  =  Number  of  MPBX  lines  considered. 

6.2  NMPBX,  PBX  (1),  PBX  (2),  PBX  (3),  PBX  (k) 

NMPBX  =  MPBX  identification  number 

PBX  (l)  =  Radial  (horizontal)  coordinate  (ft)  of 

leftmost  end  of  MPBX.  If  MPBX  is  vertical, 
this  is  the  coordinate  for  the  lover  end. 

PBX  (2)  =  Vertical  coordinate  (ft)  of  leftmost 
end  of  MPBX. 

PBX  (3)  =  Radial  (horizontal)  coordinate  (ft)  of 
rightmost  end  of  MPBX. 

PBX  (U)  =  Vertical  coordinate  (ft)  of 
rightmost  end  of  MPBX. 

Note:  Card  6.2  repeated  NBX  times. 


FORMAT 
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B.3  -  Output 

The  output  for  each  MPBX  considered  gives  the  MPBX  identification  number, 
coordinates  of  the  end  points,  and  displacements  parallel  to  the  MPBX  line  of 
points  on  the  line.  Displacements  are  determined  for  each  point  on  the  MPBX 
lice  vhere  it  intersects  a  line  Joining  two  adjacent  node  points. 

Displacements  along  the  MPBX  line  are  defined  to  be  positive  if  they 
occur  in  the  direction  from  the  leftmost  end  point  toward  the  rightmost 
end  point  (irrespective  of  which  end  corresponds  to  the  tunnel  face).  When 
the  MPBX  is  vertical  positive  displacement  corresponds  to  movement  from  the 
lower  end  point  toward  the  higher  end  point. 
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B.U  -  Listing  of  Code 


PROGRAM  W  H  P  (  l  NPJT  ,  OUT  PU  T  ,  T  AP  F  5  =  INPU T , T APE  6 =UL TPU T  »  TAPH  ) 
DIMENSION  PBX  <  10, 5>»In!P(  1600,  10),R(  16CC),Z(  16CC)  , 

IUI  1600  )  ,V(  1600),  NAL'NPl  160C  ) 

WR  IT  E.( 6  ♦  5  )  ‘ 

5  FORMAT («1  DISPLACEMENTS  ALONG  MPBX  LINES*  // 

I  *NCT£ —  CIS  PLACEMENT  S  ARE  MEASURED  POSITIVE  IF  IN  */ 

,  2*C  IRECT  1  CN  rFRCM  LEFTMOST  ENDPOINT  TO  RIGH'MOST  ENDPOINT.*/ 

3  *1  F  MPBX  IS  V  ERT  ICAL,  POS  IT  IVF  D  I  .PL ACEMEN T  */ 

4  *1  S  MEASURED^  IN  DIRECTION  FROM  LOWEST  TO  HIGHEST  POINT*) 

500  RE  AD  { 5  , 6 )  A M  M  F 

6  FORMAT ( IHA4) 

WR  IT  £  (  6 ,6  )  A.mAME 
REACTS, 7) ITAPE 

i  IF (IT  APE.FC. I )  GO  TO  1000 
RE  AO  (5 ,7  5NUMNP,  NUMEl 
7  ‘  F^C  RMAT  (  315) 

C  READ  INlNOCE  POINT  DATA  INCI  UC  H  G  D  I  SPL  ACFMEN  T 

RE  AD  ( 5  ,8  )  (  NPN'JM,  ^  (  NPN  ) ,  7  (  NPN  )  ,U<  NPN  ),  V(NPN  )  , 

1  NPN=  l  ,  MJMNF) 

GO  TO.  10 10 
1000  REWIND  1 

,  READ  (  1  )  NU  MNP »  (  R(  l  )  »Z  (I  )'»  1=1*  NIJMNP  ) ,  NtjM  F.  L 
8  FORMAT  (  I5,?F10. 3,  2Elb  .4) 

C  READ  IN  FLFMENT  OAT  A 

C  RL AC  IN  SUPRCUT INt 

10LO  CALL  GETNP(NJMNP,  NJMFL»NACNP,  NP,  ITAPh  ) 

IF  (  IT  APE.F-C.0|  GOTO  10?C 
READ  (1)  (  I,U(I),V(  t)i  J=l,NUy.'JP  ) 

1020  CC  1015  1=1,  NIJMNP  , 

Z  (  I )  =  -Z  (  I  ) 

10lt>  V(  I  )  =  -V  (I) 

,  RE  AD (5, 7)  MIX 

CC  400  I BX= l , NDX 

C  MPBX  INPUT--  LEFTMOST  ENDPOINT  Rf.AU  FIRST 
RF  AO  I  5 , 0  )  NMP  t)X  ,  (  P  UX  (  I  HX  ,  I  ),  1  =  1,  4) 

9  FORMA’"  (  I5.4FIU.2  ) 

WRITE  (6 , 10  )'NWi>BX  ,  (PI'XT  IBX,  I  ),  !=  1, 4) 

10  FCRMATT//*  MPBX  NO.  =  *14*,  FID  POINTS  -  RLE  F  T  =  * 

i  F8  .2  ,  * ,  ZIFF1  =  *FH.?/ 3  TX*i<R  IGFT  =  *F6.2*,  ZR 1 GH  T  =  *F8.2/) 
WR  IT  £  ( 6 ",  12  ) 

12  FORMAT (5Xv  *R-C00RD.*6X, *Z -COORD .* 5X , * D I SPL ACM T . ( I N. ) * / ) 

PBX (  IBX,?)=-PHX(  IBX, 2  ) 

P8  X  (  I  BX  » 4  )  =  -PBX  {  IBX, 4  ) 

C  CHFCK  IF  MPBX  IS  VERTICAL 

IF  ( AB$:(  FBX  (  I  Bx  ,  l  )-P  BX  (  IBX,  3  )  )  .  G  T  .0.  C  1 )  GO  TO  ?C 
!  PBX (  I  BX  ,5 ) =9 9 999.0 
GO  TG  25 

C  CALCULATE  SLCPF  .OF  MPBX 

20  .  PBX  (  I  H.X  ,  5  )  =  (  PBX  (  I  PX  ,  4  )-PBX(  IBX,  2  )  )/lPBX(  IBX,  3 )  -  P  tt  X  U  rt  X 

1,1))  : 

IF  {  PBX  t  IBX,  5)  .  EQ.O.O)  PBX  (  IBX,  4)=PhX(  !BX,4)+C.CU 
25  CALL  M'AXTPBXT  IBX,?),PHX(  UX,  l),PBX(  lBX,4),Pl)X(  IBX,3)  , 

1  PBXTOP,  PBXBDT  ,RINTER,  IXCOCE) 

CC  200,  NPN=  1  ,  N’UMNP  . 

IF (NAONPTNPN ) .EO.O)  GO  TO  200 
NA D J P=  NjADNP (  NPN) 

DC  300_IAP=1  ,  NADJ  0 
C  CHECK  IF'  NODE  LING  HAS  BEEN  USED 
IF  (NP(  NPN,  IAP)-Ni>N)  300,  ICO,  30 
30  i  NPADJ=NP(  NPN,  l  AP  5 
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C  CHECK  IF  NCOE  LINE  IS  VERTICAL 

IF  (ABS  (R(NPN)-R(NPADJ  )).GT.O.Ol)  GU  TO  4L 
SL  CPN°= ^99  99 .0 
GC  TC  50 

C  CAICULA1G  SLCPF  OF  NODE  POINT  LINE 
40  SLCPNP=  I  Z  I  N°ADJ  )  -Z(  NPN )  )/I  RINPADJ  )-R(NPN)  ) 

C  CHECK  FOR  MP8X  P  ARAL  L  Fl  TO  .MODI-  »  T .  LINT 
50  IF  (A  aS  ( S  LCPNP-PBX (  I  BX  »  5  )  )  .L  T  .O.CI  )  GO  TO  3  C  C 
IF  IS  LOPNP. NF .999  79.0 )  GO  TO  MS 
RI  NT FR=  R  (  N PM  ) 

IF  (R  I  NT  FR.l.T  .  PBX  (  I  EX,  1  )  .OR  .R  IN  TER  .G T  .PB  X(  IB  X,  3  )  ) 

I GC  TO  300 

CALL  MAX  (7  IN  PM),  RHJPN ),  7CMPAUJ  ),R(NIPAOJ  ) ,  2  TOP  ,  ZBO  T  ,RB  V. 
1T,NPC0DF) 

Z I  NT  ER=  PBX  (  I  OX  »  7  )  -*P  PX  (  IBX,5)*IRIN  TFR-PH  X(  IB  X , 1  )  ) 
ITTnNTFTr.rr.Z'B'OT  .0R.Z7NTFR.GT.ZT0P  )  GO  TO  3CC 
GC  TC  (60,  70  )  , NPCOC  F 
60  NT  CP=  N  PN 

NR  CT  =  NP AOJ 
GC  TC  BO 
70  NT  CP=  NPACJ 

NBCT  =  NPN  '  * 

'80  CALL  l  NT  FRC(  Z  BUT,  /TOP,  7  I N  T  F  R  ,  P II X  (  Hi  X  *  5  )  ,U(NUOT  )  ,  v  ( NU  0  T 
1),U(NTCP),V(NTUP),CISPL  > 

GC  TC  350 

8o  CALL  M AX ( R ( N  PN ) , 7  (NPN  ),  R(N°ADJ  ),/HPADJ  ),R«  I GH  T  ,  R  L  f:  f  I  , 
l ZLEFT , NPCGCE I 

IF (PbX ( tlX, 5 ) .EO. 99999.0)  CO  TO  90 

R!  NT  ER=  (PPX(  I  r*X  »  2  )-/  L  FF  T  +SL  lJPNP#RLF  F  T-PBX  (  lBX,5)*PBX(f 
1BX  ,1  )  )/  (SLCPNP-PliXt  IUX,  5  )  ) 

IF (R INTER. LT . PBX (  IHX,  I) .OR .R INTER  .GT.PBXf lBXfj)  >  GOTO  3C0 
90  IF  (RI  NT  ER.  LT  .  f<l  FFT  .OR  .R  IN  TER. GT  .RR  IGHT  )GU  TO  3C0 
ZI  NT  GfWLFFT  +  S  LDPNP*(  R  INTFR-RLtFT  ) 

TF(z  Inter. iT  .poxbOT  .or.z  inter  .gt  .pbxtop  )  go  to  3cc 
GC  TC  ( 100 ,110), NPCOCE 
100  NL  EFT  = NPACJ 
NR IGHT  =  NPN 
GC  TC  120 
110  NLEFT  =  NPN 

NR  I G H  I*  =  NPACJ 

120  CALL  INTFRPI RL EFT , RR I CHT , RIN T FR , PBX ( IBX  ,  5 ) , U NLFF T) , V( 

I  NLEFT  )  ,U  (  NR!  GHT  J,V(NKIGK  ),  BISPL  ) 

350  Z I  NT  ER= -7  I  NT  HR 

WR  I T  E  ( 6  ,  l  5  )  R  INTER,/  INTER,  Cl  S.»L 
13  F  CRM  AT  (3X,F8.2,5X,EB.?,5X,£  12.4) 

300  CCNTlNJfT 
200  CCNTINIJF 
400  CCNTINIJE 
ST  CP 
END 


SUBROUT  INF  GFTNP(  NLi^ND,  NUMEL,  NADJN® , NPADJ ,  I  TAPE) 
Dl  ME  NS  !  CN  NPACJ  (  1600,  10),NACJNP(  1600 
MX  AD JP=3 

DC  5"  !  =  l ,  fNCTPTMP  •  _ 

NADJNPt  I  )=0 

DC  5  J-=  1  ,  MX  A  U  J  P  f  ^  3 


0000000000 


‘3  NP  AD J (  I  » J  )  = ') 

c 

DC  7  y=l,NlJvFL 
IFUT  APE.EC.  1  )  GO  TO  6 
REA0C3  ,4 )  NUW»  ,NPl,NPJ,NPK,NPL 
GC  T  t:  7 

6  READ(l)  NUNC,  NP I , NP J , NPK , NPL 
7  CALL  ADJN'P(NJMNP»NPACJ»NUME,NP  l ,  NP  J  ,  MPK  ,NP  I.  ) 

C 

call  Vacj"npTnaOjnpVnu’mnp»npai)j  ) 

4  F  C  rt  M  A  T  { ‘>  IS  ) 

RETURN 

C 

END 

C 

C 

C 

SUHRUUr  INE  ADJ.NPt  MU  MNP ,  NP  A  L'J  ♦  MUM  E » 

1NPI  ,NPJ,N'PK,NPL  ) 

Cl  MENS  I  CN  NPACJ(  1600,  10  ),MA(  4  ) 

C 

FCRM  TAeLE  OF  AC J  AC  FN  T  NO CAL  POINTS 
MX  AD  JP=  MAX*  NO.  OF  ADJACENT  NODAL  POINTS  ALLOWED 
MJMNP  =  NC.  OF  NODE  POINTS 
NP AD J  = ADJACENT  NOLF  POINT  NUMBER 
NPI  =ELFNF.NT  NOCE  POINT  I 

NP  J  =ELFP_FN_T_  NOCF  POINT  J 

NPK  =  EL F ^ F 0 T  NOCE’  POINT  K 

NpL  =  ELEPFNT  NODE  POINT  L,  IF  =  0  ,  TRIAN  ELEMENT 
NU  ME  =  FLEMF  JUMBFR  bFING  CONSIDERED 
NCTE -  TABLE  ASSJMEC  TO  HE  ALRFACY  ZEROED  OLT 

PXAUJP=H 
NA ( I )  =  NP  I 
NA (2 )  =  NP J 
NAC3)  =  NPK 
NA (4 )  =  NPL 
I CCU  NT  »  l 
')  NPNUM=NA(I) 

MX=  NA ( 2  ) 

JC  CU  NT  =  l 

5  DC  l  I  =  l » MX AC JP 
J=  l 

IF  (NPADJ(  NPN'JM,  I  )  .FO.MX  )  GO  TO  2 
IF (NPADJINPNJM,  I)  .EC.O)  CO  TO  j 

1  CONTINUE' 

WRITE  ( 4  *  101  )  NU  ME  »  N  PNU  M , MX  t ( NP ADJ ( NPN LM , 1), l =1,NXADJPI 
CALL  EXIT 
C 

3  NPADJI NPNUN, J '  =  MX 

2  JCCUNT=  JCCUNJ  *1 

IF  (JLUUNT  .CT  .3)  GU  10  4 
l F ( JCOU  NT . CT  .2)  GO  TO  102 
MX  =  N  A ( 3  ) 

IF (NPL. EC.  0  )  GU  l 0  S 

102  M  X  =  N  A  (  4  ) 

GC  TO  5 
C 

4  GC  TO  (6,7,8, 10 3  It  I  COUNT 

6  I C  CU  NT  =  2  ?  4  4 
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NA  (1  )  =  M  P J 
NA  (2  )  =  N  PK 
NA  (3  )  =  N FI. 

NA  (4  ;  =  fV F  I 
GC  TG  9 
C 

7  ICCUNT=3 
N A (2 )  =  NPL 
NA  (3  )  =  NPI 
NA  { 1  5  =15Tk' " 

NA  (4  )  =  NEJ 
GC  TC  9 

c  . 

3  I  COUNT -4 
NA  (1  >  =  N  FL 

'  I F  f NTTTFCV  T '  5  GO  TC  10  3  -  -  -- 

NA  <2  )  =  NP l 
NA (3 }  =  NP J 
NA  (4  )=NP;< 

GC  TG  9 
C 

101  F  CRM  AT  (T^Rfc'R’ROR  IN  FORMINC  ADJACENT  MODAL  POINT  ARRAY/ 

1 2 1 H  ELEMENT  NUMBER  =  ,  1 5/  19EN0DE  POINI  NUMBER  =,15/ 

217H  ADJA  NCCE  PO INF  =,  1 5//  1 BF  NPAOJI MPMGM, I  ) /( 2 1 X , I  5)1 
C 

103  RETURN 
C 

END 

C 

c 

c 

SURRGUT  INF  V  A DJNP ( N ACJMP, NUMNP , NPAD J  ) 

DIMENSION  NACJNPI  1600),NPACJI  1600,  10 

C**«*  FCRM,  VECTCR  INDICATING  THE  NUMBER  OF  ADJACENT  NODE  POINTS 
C  AT  EACH  NCCF  POINT 

C 

C  MX  AD  JP=  VAX  .  IMG.  OF  AO  J  AC  FN  T  MODE  POINTS  ALLOWED 

C  NADJNP=NC.  OF  ADJACENT  NDC E  POINTS  AT  EACH  NODE  POINT 

C  NUMNP  =  NC.  OF  NOOF  POINTS 

C  NP  AD J  = ADJACENT  nGCF  POINT  NUMBER 

MXADJP=B 
DC  12  M=l,  NUMNP 
DC  10  I  =  1 ,  MX  A  0  J  P 
J=  I 

IF  ( NPACJl M,  I  1 .FO.O  )  GO  TO  11 

10  CCNTINUE 

NA  DJNP ( M )  =  MX  AIJP 
GC  TC  12 

11  NADJNPI M  >  =  J  —  I 

12  CCNTINUE 
RETURN  '  ’ 

C 

END 

C 

C 

C 

$0  BR  CU  T  1  WE"  M  AX  I  a  1 ,'  B  1 ,  A 2 ,  B 2 ,  Am  A  X ,  AM.  I N  ,  BM  IN ,  N  » 

IF (A1-A2) 10,20,20 

10  AMAX=  A2  ,  . 


o  o  o 
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AN l N=  Al 
B  N  l  N=  B 1 
f\=  2 

RETURN' 
20  AMAX  =  A 1 
AN  I N=  A2 
BN  1 N=  B2 
N=  1 

RETURN 
END  ' 


SUBRCUT INE  I  NT  ERR  (  AM  IN,  AM  AX  ,  A  IN  T  FR, SL0PE,UMIN, VM 1  N  » UMA 
1  X , V  MAX , C  IS  PL  ) 

TPTa  bS  i  A  m  I  N-  am  ax  )  .'G  f .  o',  o'l  I  go  to  20 

FACT  GR=0 .0 
GC  TC  TO 

20  FACf  CR= ( A  I  AT  FR-AM  IN  )/( AMAX-AM  IN  ) 

30  Ul  NTER=UNIN+FACTOR*(UMAX-UM  IN  ) 

VI  NT E R=  V M I  N  +  FACTOR*!  V/MAX-VM  IN) 

ANGLES" AT  AN ( S  L  OP F) 

OISPL=U  INT  ER*COS  !  ANGLE  )  4V  INTERNS  INI  ANGLE  ) 

RETURN 

END 
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